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EGYESÜLET 



MIT, HOGYAN, HOL, MIKOR? 

EGYESÜLETI ÜGYEK: Egyesületünk tagja lehet mindenki, 
aki a tagsági díjat befizeti. A tagdíjat személyesen az Egyesü¬ 
let irodájában (1133 Budapest, Kárpát u. 7/a. I. em. 11., tel: 
497-559), vagy átutalással az MNB 217-98292, OTP 565-3610-8 
számlára lehet befizetni. Megrendelés esetén számlát kül¬ 
dünk. 

Minden tagunk rendelkezésére áll PÖTYÖGÖSZOLGÁLA- 
TUNK, a szervizkedvezmény és az apróhirdetési lehetőség. 

A Deákpáholy tagjai minden hónapban megkapják a C- 
újságot, a tagsági díj fél évre 366 forint. 

A Pluszpáholy tagjai minden hónapban megkapják a C- 
újságot, és minden hónapban 2x60 forint vásárlási utalványt 
is kapnak. A tagsági díj fél évre 911 forint. 

A Szuperpáholy tagjai havonta 15 példányt kapnak a C- 
újságból, és ezzel havonta 1800 forint vásárlási utalványt. 

A féléves tagsági díj 10 000 forint, 



A kedvezmények a kővetkező vidéki 
könyvesboltok 2C sarkaiban válthatók 
be. 

PÉCS: Zrínyi Miklós Könyvesbolt. 7621 Jókai u. 25. Tel.: 
72-12835 

DEBRECEN: Szak- és ismeretterjesztő Könyváruház. 
4024 Hunyadi u. 8. Tel.: 52-23237 

SZOMBATHELY: Savaria Könyvesbolt. 9700 Mártírok te¬ 
re 1. Tel.: 94-12341 

VESZPRÉM: Kölcsey Ferenc Könyvesbolt. 8200 Cserhát 
út 7. 

BÉKÉSCSABA: Radnóti M. Könyvesbolt. 5600 Tanácsköz¬ 
társaság út 2. Tel.: 25-207 

GYŐR: Pattantyús Á. Géza Szakkönyvesbolt. 9021 Molnár 
Ferenc u. 9. 

SZEGED: Tömörkény Könyvesbolt. 6720 Lenin krt. 48. 
Tel.: 62-21453 

SZOLNOK: Szigligeti Könyvesbolt. 5000 Ságvári krt. 35. 
Tel.: 56-11133 

MISKOLC: Chip-kuckó. 3530 Tanácsház tér 14. 


Az Országos Commodore Egyesület módszertani kiadványa. 

Egyesületi iroda és szerkesztőség: 1133 Budapest, Kárpát u. 
.7/a I. em. 11. Tel.: 497-559 
Felelős kiadó: Horváth Judit, az egyesület elnöke 
Főszerkesztő: Rados Péter 
Felelős szerkesztő: Dr. Horváth András 
Művészeti szerkesztő: Szulyovszky Józset 
Egyesületi szervező: Winter Júlia 
Lapmenedzser: Kovács Gábor 
Levélcím: Commodore Újság, 1388 Bp. 62. Pf. 86. 

Index: ISSN 0237-756 X 
Terjeszti a Magyar Posta. 

Megvásárolható a hírlapárusoknál. 

MSZH Nyomda 


ÜGYFÉLFOGADÁS: minden kedden és csütörtökön 14—18 óra 
között várjuk tagjainkat és az érdeklődőket. 

PÖTYÖGŐSZOLGÁLAT: Az újságban megjelenő programo¬ 
kat másolja a megrendelők részére. Megrendelhető szemé¬ 
lyesen az Egyesület irodájában, vagy postai utánvéttel. 

A pötyögőszolgálat minden páros héten csütörtökön az 
egyesületi irodában működik, 16—19 óra között. 

APRÓHIRDETÉS: Az egyesületi tagoknak ingyen áll rendel¬ 
kezésére. Nem tagoknak a hirdetés ára 80 forint. A hirdetés 
módja: az újságban megjelenő nyomtatvány kitöltésével. 

A C-újság régebbi számai megvásárolhatók az Egyesület 
irodájában, vagy megrendelhetők utánvéttel. 

Kedvezményes ár! Tagoknak olcsóbb! 

Az újságban eddig megjelent programok gépenként össze¬ 
gyűjtve megrendelhetők. VC 20, C16, PLUS/4, C128, C64. To¬ 
vábbi felvilágosítást is adunk a 497-559-es telefonszámon, 
vagy levélben! 

Vidéki Pluszpáholy-tagjaink három havi tikett összegyűjté¬ 
sekor igénybe vehetik a NOVOTRADE 2C áruház ingyenes 
csomagküldő szolgálatát. 

Vidéken további információk kaphatók: 

Jászberényi Városi Könyvtár 
Győri Bartók Béla Művelődési Ház 
Zalaegerszegi Ságvári Endre Gimnázium 
Pécsi Apáczai Csere János Gimnázium 

Budapesten havonta klubdélelőtt 
a Petőfi Csarnokban. 

Egyesületünk és az újság szerkesztősége 
várja az Önök programjait, hardver leírá¬ 
sait, cikkeit. Szerkesszük együtt az új¬ 
ságot! 


FIGYELEM! FIGYELEM! 

Értesítjük Egyesületünk tagjait és a Commodore Újság minden ol¬ 
vasóját, hogy következő számunk, a július—augusztusi, összevont 
számként jelenik meg, ára 96 Ft. 

Tagságunk, valamint az Olvasók augusztus első hetében juthatnak 
hozzá. 

Szerkesztőség 


Tisztelt Commodore Újság! 

Most egy újabb, C16-ra és Plus/4-re íródott programot aján¬ 
lok, amely hosszú BASIC programok írása közben nyújthat 
segítséget a felhasználónak. 

A Színbeállító lényege az, hogy BASIC program írása előtt 
betöltve, lényegesen egyszerűbbé válik a színek megválasz¬ 
tása. Nem kell sok-sok COLOR paranccsal próbálgatni a leg¬ 
látványosabb, legmegfelelőbb színösszeállítást. Az FI-keret, 
F2 háttér és F3-karakter billentyűk segítségével változtathatjuk 
a színeket, és a legutoljára lenyomott funkciónak megfelelő 
helyen a HELP billentyű segítségével beállíthatjuk a megfelelő 
árnyalatot. Eközben pedig a képernyő felső részén kialakított 
ablakban megjelennek a’ aktuális színeknek megfelelő COLOR 
utasításhoz írandó színkódok. 

A programot eredetileg gépi kódban írtam, de átírtam 
BASIC-be DATA sorokba rendezve. Futtatáskor a verem nem 
használt területére és a beépített ROM-ok indítóprogramjai 
területére másolódik és a NEW hatására törlődik a BASIC 
betöltő. Mellékelten elküldöm a program Assembly listáját is. 

Üdvözlettel: 

Igali István 
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HA ÉRVÉNYESÜLNI KÍVÁN, TANULJON MEG 
LEGALÁBB KÉT IDEGEN NYELVET! 

A SYSTEM GEORGE NYELVOKTATÓ 
PROGRAMOK SEGÍTSÉGÉVEL GYOR¬ 
SABB, ALAPOSABB A TANULÁS! 

C64 gépre ANGOL, NÉMET, OROSZ, SPANYOL, 
PC/XT,AT gépekre ANGOL és NÉMET programok 
állnak redelkezésünkre. 

Az ANGOL, NÉMET és OROSZ programokhoz 
együtt futtatható hanganyag is kapható! 

A vállalatoknak érdeke, hogy dolgozóik nyelv- 
ismerettel rendelkezzenek. Tegyék tehát lehető¬ 
vé számukra, hogy a mikroszámítógépek szabad¬ 
idejében tanuljanak! 

A PROGRAMOK ALKALMASAK AKÁR MAGÁ¬ 
NOKTATÁSRA ÉS KEZDŐK, VALAMINT HALA¬ 
DÓK SZÁMÁRA IS! 

KÉRJENEK RÉSZLETES ISMERTETŐT 
ÉS ÁRJEGYZÉKET! 

INFORMÁCIÓ, RENDELÉS : Országos Commodo¬ 
re Egyesület 
1133 Budapest 
Kárpát u. 7/a. 1/11. 
Telefon: 497-559 

TANFOLYAMOKAT IS RENDEZÜNK!!! 





BASIC-bővítés 
a PLUS/4-eshez 

A Sven Giero Datentechnik egy új 
BASIC bővítést kínál a legalább 32 kbyte 
RAM-mal felbővített C16-hoz vagya PLUS/ 
4-eshez. A lemezen kapható program 


neve Professional BASIC, s az több, mint 
80 új parancsot tartalmaz. 

A bővítés számos segítséget tartalmaz, 
amelyekkel a BASIC programok editálása 
könnyebb lehet. A Professional BASIC 
német kézikönyvvel együtt kb. 45 márkáért 
kapható. 

Info.: Sven Giero Datentechnik. Lessing- 
strasse 14, D—3167 Burgdorf. 
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Ezzel az írással elsősorban azoknak az 
Amiga-tulajdonosoknak szeretnék segíte¬ 
ni, akiknek nehézséget okoz az Amiga 
operációs rendszerének megértése, hasz¬ 
nálata. Mivel a tapasztalat azt mutatja, 
hogy nem csak azoknak van ilyen jellegű 
problémájuk az Amigával, akiknek előző¬ 
leg egyszerűbb gépük (pl. Commodore 64) 
volt, ezért bárki másnak is, akit érdekel 
a téma, hasznos lehet a cikk. 

Felhasználói szempontból az operációs 
rendszer két fő részre osztható. Ennek 
a két résznek a neve Workbench és CLI. 
A két részrendszer nem független egy¬ 
mástól, sőt, szorosan kapcsolódnak egy¬ 
máshoz, egymás mellett párhuzamosan is 
használhatók. 

A Workbench egy egér által vezérelt, 
ikonokat, menüket és ablakokat használó 
rendszer. Hasonlít a Geos, a GÉM vagy 
a Windows megfelelő környezetére. A 
Workbench különböző funkcióit az egér 
ill. a billentyűzet segítségével lehet elérni. 
Az egér által vezérelt — általában nyél 
alakú — jelet, szükség esetén a billentyű¬ 


zetről is lehet mozgatni a jobb oldali 
Amiga + a kurzor mozgató billentyűkkel. 
A bal oldali egér-gombnak a bal oldali 
ALT + bal oldali Amiga — (egyes gépek 
nél Amiga helyett Commodore), a jobb 
oldali egér-gombnak a jobb oldali ALT + 
jobb oldali Amiga-billentyű felel meg. 
További hasznos billentyűkombinációk is 
vannak, pl.: az operációs rendszer kérdé¬ 
sére a ’Retry' választ a bal Amiga + v, 
a ’Cancel’-t a bal Amiga + b billentyű¬ 
párosokkal is megadhatjuk. Ha egy (vagy 
több) program saját képernyőt generál 
magának (tehát nem a Workbench kép¬ 
ernyőt használja), akkor a program és a 
Workbench képernyői között a bal Amiga 
+ n, bal Amiga 4- m gombokkal is átvált¬ 
hatunk. 

A Workbench legfontosabb szolgálta¬ 
tásai a különböző file-ok kezelésével kap¬ 
csolatosak; betöltés, kimentés, másolás, 
törlés, átnevezés, lemezformázás,az innen 
elérhető file-ok paramétereinek megjele¬ 
nítése/módosítása, lemeztartalomjegyzék 
megjelenítése. 


Nagyon fontos: Workbench-ből csak 
azok a file-ok érhetők el, amelyeknek vagy 
egy ugyanolyan nevű 'info' kiterjesztésű 
párja!!! Ugyanis itt nem lehet a hagyomá¬ 
nyos módon szöveges formában a kataló¬ 
gust megjeleníteni, csak ikonokkal. Mivel 
az ikonoknak sem az alakja, sem a mérete 
nincs rögzítve, ezért ennek adatait külön 
kell tárolni — többek között ezt tartalmazza 
az 'info' kiterjesztésű pár. Tehát ha pl. 
létezik egy 'API' nevű fiié a lemezen, 
akkor csak abban az esetben jelenik meg 
ez a Workbench-ben, ha van — ugyan¬ 
abban a katalógusban — egy 'API.info’ 
nevű fiié is, amely tartalmazza az 'API' 
ikonjának adatait (és még néhány más 
adatot. Ezekből következően egy lemezen 
akár több száz fiié is lehet, adott esetben 
ezekből csak néhányat vagy esetleg egyet 
sem láthatunk. 

A legtöbb lemezen található egy ’Trash- 
can’ nevű szemeteskosár alakú ikon. Ez 
első látásra törlésre való (ami nem kell, 
bedobjuk a szemétkosárba), valójában 
azonban egy közönséges alkatalógus ikon¬ 
ja. Tehát eltérően pl. a Geos-tól vagy 
a GEM-től, a szemétkosárba bedobott file- 
ok nem törlődnek, hanem átkerülnek ebbe 
a ’Trashcan' nevű alkatalógusba, s így 
nem vesznek el, bármikor visszamásol- 
hatók eredeti helyükre. Ha azonban úgy 
döntünk, hogy a 'Trashcan' tartalmára 
biztos nem lesz szükségünk, a megfelelő 
szemetes kijelölése után az ’Empty Trash' 
menüpont segítségével „egyetlen moz¬ 
dulattal" valóban törölhetjük a szemetes¬ 
ben lévő file-okat. Lehetőség van a 'Trash¬ 
can' — mint átmeneti tárolóhely — hasz¬ 
nálata nélkül is, közvetlenül törölni a 
'Discard' menüponttal. 

Kevesen tudják, hogy hogyan lehet pl. 
több ikont kijelölni, és rajtuk egyszerre 
elvégezni bizonyos műveleteket. A prob¬ 
léma a következő: ha kijelölök egy ikont és 
egy másikat is ki szeretnék jelölni, abban 
a pillanatban, ahogy a másodikat kijelö¬ 
löm, az első nyomban visszavált eredeti 
állapotába, tehát egyidőben egyszerre 
csak egy ikon lehet kijelölve. Nem így van 
ez, ha használom a SHIFT gombot, ugyan¬ 
is ha a SHIFT billentyű lenyomva tartása 
mellett jelölöm ki az ikonokat, akkor a ko¬ 
rábbiak nem váltanak vissza. Ez hasznos 
lehet többszörös másolásnál, törlésnél stb., 
vagy ha azt akarjuk, hogy egy programhoz 
a hozzá tartozó adatfile is rögtön betöltőd¬ 
jön. Ez utóbbival hasonló hatás érhető el, 
ha használjuk az 'Info' menüpont után 
nyíló ablakban a ’DEFAULT TOOL' részt. 
Az itt nevével megadott futtatható prog¬ 
ramot a Workbench a betölteni kívánt 
adatfile létrehozó-programjának tekinti. 
(Az 'Info' ablakban megadott paramétere¬ 
ket az Amiga a megfelelő 'info' kiterjeszté¬ 
sű file-ba menti ki.) Ezért van az, hogy 
amikor Workbench-ből betöltőnk egy BA¬ 
SIC programot — ami természetesen nem 
futtatható közvetlenül —, a gép nem áll le 
hibaüzenettel, hanem betölti az Amiga 
BASIC-et — hiszen a megfelelő 'info' 
kiterjesztésű file-ban szerepel a 'DEFAULT 
TOOL' rovatban megadott programnév 
(ebben az esetben az AmigaBASIC) —, 
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majd az AmigaBASIC-nek átadja a BASIC 
program nevét, ami a saját szerkesztőjébe 
betölti azt. Ide tartozik még a 'TOOL 
TYPES' rovat is. Itt paramétereket lehet 
megadni, amiket a Workbench az adott 
program betöltése után ad át. Mivel sem 
a paraméterek, sem azok száma, sem 
típusa nem rögzített, ezért ezt a lehetősé¬ 
get csak olyan programok használják ki, 
amelyek írásánál tudatosan törekedtek 
erre. Ilyen pl. a Notepad vagy a Professio- 
nal Page. 

Szintén kevesen ismerik a ’Clean Up' és 
a 'Shapshot' menüpontok használatát. 
Ezekhez tudni kell, hogy az ikonok helye 
az őket tartalmazó ablakban nem rögzí¬ 
tett, tetszőleges lehet, és ez akár kézzel, 
akár a gép által beállítható. Ha nem aka¬ 
runk bajlódni a kézzel — NI. egérrel — 
való helyezgetéssel, és megfelel a gép 
által készített sorrend, akkor a megfelelő 
lemez vagy alkatalógus kiválasztása után 
a 'Clean Up' menüponttal rendezhetjük az 
egy ablakban lévő ikonokat. Vigyázat, az 
ikonok új pozíciói csak a memóriában 
lesznek átírva, a lemezen — az 'info' kiter¬ 
jesztésű file-okban — nem változik semmi I 
Ahhoz, hogy ez a lemezen is átíródjon, 
a 'Shapshot' menüpontot kell használni. 

Nagyon röviden ennyit a többfeladatos 
üzemmódot támogató Wokbench-ről. 

A másik fontos részrendszer a CLL 
A CLI a Command Line Interpreter vagy 
Command Line Interface angol szavak kez¬ 
dőbetűiből képzett betűszó. Fordítása te¬ 
hát parancs-sor értelmező. Ez a része az 
operációs rendszernek a hagyományos 
operációs rendszerek környezetére (pl. 
MS-DOS) hasonlít. 

Formailag a CLI a Workbench képer¬ 
nyőn, egy közönséges ablakban fut. Work- 
bench-ből is és a CLI ablakból is — a több 
feladatos üzemmód eredményeképp — 
tetszőleges számú új CLI ablakot lehet 
nyitni. A CLI-ben nincs semmilyen olyan 
jellegű megkötés, mint a Workbench-ben, 
itt a lemezen lévő összes fiié elérhető. 
A CLI-ben az egérnek sok szerepe nincs, 
itt az AmigaDOS parancsok segítségévei 
lehet kommunikálni a géppel. Az 1.2-es 
verziójú AmigaDOS-ban minden parancs 
külső parancs, ami a kezdő felhasználónak 
roppant nehézségeket szokott okozni — fő¬ 
leg, ha csak egy lemezmeghajtójuk van —, 
s ez egyből el is szokta venni a kedvüket 
a CLI-től. Azért nem olyan forrón eszik a 


kását! Van néhány olyan megoldás, amivel 
kényelmesebbé tehető a CLI használata. 
Az első megoldás abban az esetben hasz¬ 
nos, ha csak néhány AmigaDOS műveletet 
szeretnénk elvégezni. Minden AmigaDOS 
parancsnak, ha paraméteréül egy kérdő¬ 
jelet adunk meg, akkor nem fut le rögtön, 
hanem — egyfajta „Inelp” funkcióként — 
kiírja a neki megadható összes paramétert, 
majd addig vár, amíg meg nem adunk va¬ 
lamit. Nos, egy lemezmeghajtós rendszer¬ 
ben ezalatt a várakozási idő alatt ki lehet 
cserélni a Workbench lemezt arra a le¬ 
mezre, amelyre érvényesíteni akarjuk a 
kívánt parancsot. 

A másik módszer az Amigán nagyon jól 
hasznosítható RAM DISK-et hívja segít¬ 
ségül. Az — általam ismert — összes szá¬ 
mítógéptípus közül az Amigán a legintelli¬ 
gensebb a RAM DISK, ugyanis a mérete 
nem rögzített vagy beállítható, hanem di¬ 


namikusan változik annak függvényében, 
hogy belemásolok, vagy törlők belőle. 
(Egyetlen korlát a szabad memória nagy¬ 
sága.) Az első módszer hátránya, hogy 
nagyobb munkáknál borzasztóan kényel¬ 
metlen az állandó lemezcsere. A második 
módszer ezt küszöböli ki. A munka kezde¬ 
tén másoljuk be a RAM DISK-be azokat 
az AmigaDOS parancsokat, amelyekkel 
előreláthatólag dolgozni fogunk, majd ad¬ 
junk ki egy ’PATH RAM:' parancsot. Ezen¬ 
túl a RAM DISK-ben lévő parancsokért 
már nem fog a gép lemezhez nyúlni. 

Tekintve, hogy a CLI-nek (és a Work- 
bench-nek is) annyi és olyan összetett szol¬ 
gáltatásai vannak, hogy a lap egy évi szá¬ 
mainak teljes terjedelme sem lenne elég 
az ismertetésükre, ezért egyelőre ennyit 
a CLI-ről. 


Újhelyi Gyula 
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A Cl28 ésaCP/M 

A Markt Technik könyvkiadó részlege 
most egy újabb „Cl 28 Extra” terméket 
dobott piacra 49 márkáért. Az elsősorban 



a grafikával foglalkozik. Egy jelkészlet 
editor, egy nyomtatórutin és egy speciá¬ 
lisan a grafikus képek tömörítéséhez hasz¬ 
nálható program található a csomagban. 

A második lemez CP/M formátumú. 
A CP/M-mel eleddig semmilyen lehetőség 
nem volt a 80 karakteres képernyő nagy- 
felbontású grafikájának kihasználására. A 
Cl 28 Extra Grafik 128 programja segítségé¬ 
vel Turbo Pascalban problémamentesen 
készíthetünk szép képeket, rajzokat. 

Info.: Markt et Technik Buchverlag, 
Hans-Pinsel-Str. 2, D—8013 Haar bei Mün¬ 
chen. 


Info.: Markt et Technik Verlag AG, 
Hans-Pinsel-Strasse 2, D—-8013 Haar bei 
München. 

Számítógépes szaküzletek, áruházak 
computer osztályai. 

A megadott árak mi nden esetben a gyár¬ 
tóktól/forgalmazóktól származnak. Azok¬ 
ban a törvény által előírt Mehrwertsteuer 
benne foglaltatik. A piaci árak ettől eltér¬ 
hetnek. 
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PLUS/1 listázó 
PLUS/4-re 

Ez a listázó program, mint sok más társa speciális feladatot 
old meg. Legfőbb célja a lemezen tárolt programokról közlésre, 
bemutatásra alkalmas, azaz jól áttekinthető listát készíteni. 
Jellemzői: 

1. Alkalmas egy lemezoldalon levő programcsomag tagjainak 
folyamatos listázására. 

2. Minden új program vagy minden új lap kezdetén a program 
nevét is kinyomtatjuk. 

3. Egy lapra csak 54 sort nyomtatunk a címsort is beleszámítva. 

4. A programsorok számozását a lap szélétől beljebb kezdve 
9 karakteres mezőben jobbra igazítjuk. 

5. A listában a BASIC alapszavak — utasítások, függvények, 
operátorok — kiemelésére NAGYBETŰT használunk. A változó¬ 
kat, szövegkonstansokat kisbetűkkel írjuk. 

6. Az idézőjelben szereplő vezérlő karaktereket, melyeket 
a normál listában inverz karakterek jelölnek, hárombetűs 
emlékeztetővel helyettesítjük. 

7. A program szerkezetének kiemelésére mind a DO, mind 
a FÓR kezdetű ciklusok magját 2—2 hellyel beljebb igazítva 
írjuk. 

Természetesen az így készített lista csak akkor mutat igazán, 
ha a program eleve is jól szerkesztett, nem tartalmaz zsúfolt 
sorokat. Az ilyen tömörített kódok különben sem alkalmasak 
arra, hogy egy-egy jól működő programot, vagy akár csak egy 
ügyes ötletet megvalósító programfogást közkinccsé tegyünk. 


A program működése. 


Első lépésként (200—260) egy rövid rutint töltünk be a kazetta 
puffer szabad területére: 

.0332 A2 00 LDX #$00 
.0334 E6D8 INC $D8 
.0336 D0 02 BNE $033A 
.0338 E6D9 INC $D9 
.033A A1 D8 LDA ($D8, X) 

.033C 60 RTS 

Ennek a gépi kódú betétnek az a feladata, hogy a BASIC ROM 
területéről elhozzon egy karaktert. A rutin 0-ás lapú indexelt 
indirekt címzést használ. A ROM kijelölt címét a $D8—$D9 
regiszterek tartalmazzák. A rutin minden SYS híváskor ezt 
a címet eggyel növeli, majd a ROM-ból elhozott karaktert 
az akkumulátorból a rendszer a $7F2 címre kimenti. Innen 
a BASIC program már a PEEK(.) függvénnyel át tudja venni 
az adatot. A rutinnal a ROM-ban a $818E címtől kezdődő táblá¬ 
zathoz tudunk hozzáférni, melyre a PEEK(.) függvény közvet¬ 
lenül nem alkalmazható, ugyanis a PLUS/4-ben ez mindig 
a RAM megadott címének tartalmát adja át a hívó BASIC 
programnak. A szóbanforgó táblázat tartalmazza a BASIC 
alapszavakat a tokenek sorrendjében. Ezek a V3.5 verzióban 
128-tól 253-ig terjednek. 

A program második lépésében (300—330) a kétoszlopos 
K$(255, 1) táblázatot feltöltjük a megfelelő karakterekkel. 


PROGRAM 


Ezután (340—450) a ROM táblázatából átmásoljuk az alap¬ 
szavakat a K$(...) táblázató indexű oszlopába. A vezérlő kódok 
emlékeztetőit, melyeket a 460—560 sorokban adtunk meg, 
a táblázat 1 indexű oszlopába töltjük (570—600). A kódtáblázat 
feltöltése eléggé hosszadalmas, ezért e művelet idejére a kép¬ 
ernyőkezelést felfüggesztjük (120 és 610 sorok). A program 
belövése idejére célszerű a következő két sort beírni: 

435PRINT K$(T, 0)' 

595PRINT K$(T, 1)"; 

A programcsomag elemszámának, a programok nevének 
majd a kezdő lapszámnak a beírása (1000—1070) után a listázás 
kezdődik (1120—1420). A program fontosabb változóinak szerepe 
a RÉM sorokban olvasható. Külön kell szólni a p$—p változókról. 
Ezek a listázott program lemezről beolvasott karakterét és ennek 
ASCII kódját jelölik. A BASIC sorok és a program végének 
figyelésén kívül ezzel vezéreljük azt, hogy idézőjelen kívüli 
q=0 vagy idézőjelen belüli q=1 kódot K$(p, q) nyomtassunk. 


q pl us/ 1 J. i 5ta O 

10 RÉM ”****************************** 

Q 20 RÉM"* C=Üjság sorszám; f60 * O 

30 RÉM”* PLUS/1 listázó PLUSZ4-re * 

40 RÉM"* Dr. Hack Frigyes * q 

O 50 RÉM"****************************** 

60 RÉM"* CBM BASIC V3.5 * 

0 70 RÉM"* C=16 - PLUS/4 * O 

U 80 RÉM"* VIC 1541 / 1551 * 

90 RÉM"* MPS-801/803 - SP-180VC * 

O 100 RÉM"****************************** ü 
110 DIM k$(255,1 ) 

120 POKE 65286,PEEK(65286) AND 239 o 

O 130 : U 

200 RÉM"=== Gépi kód betöltése ======= 

n 210 POKE DEC<"d8"),DEC("8d") O 

220 POKE DEC<”d9"),DEC<"81") 

230 DATA a2,0.e6,d8,d0,2,e6,d9,al,d8,60 
O 240 FÓR m=DEC<”332") TO DEC<"33c") U 

250 READ c$ : POKE m,DEC(c$) 

260 NEXT O 

O 270 ; 

300 REM“=== Kódtáblázatok ============ 

0 310 FÓR i—0 TO 255 O 

320 k$( i ,0)=CHR*( i) ;k$(i ,l)=CHR*(i> 

330 NEXT n 

O 340 RÉM”-Tokenek : 128-253 - U 

350 t=128 

360 DO WH1LE t<254 O 

° 370 tS=CHR*(145) 

380 DO 

q390 SYS DEC <"332") ° 

400 b=PEEK< DEC("7f2")) 

410 t$=t$+CHRS<b AND 127) q 

O 420 LOOP WHILE b<128 
430 k$(t, 0)=tí+CHRS(17) 

440 t=t+l O 

U 450 LOOP 

460 REM“- Vezérlő kódok - 

q470 DATA 5.Cwhtl, 13,Crtnl, lT.CcudjO 
480 DATA 18,Crvsl, 19,thom], 20,[deli 

490 DATA 28,Credl, 29,Ccurl, 30,[grnl q 
O 500 DATA 31,Ebiül.129,Corgl,130,Cflol 
510 DATA 132,Cflfl,144,tblkl,145,Ccupl 
_ 520 DATA 146, Crvol, 147, Cclrl, 148, tinsl O 
° 530 DATA 149, Cbrnl, 150, Cygnl, 151, Clrdl 
540 DATA 152, Cbgnl, 153, Clbll, 154, Cdbll 
O 550 DATA 155,tlgnl,156,[pori,157,[cul1 ° 
560 DATA 158,Cyel1,159,Ccynl, 0,[-1 
570 DO o 

O 580 READ t : IF t=0 THEN EXIT 
590 READ k$ < t,1) 

n 600 LOOP n 

u 610 POKE 65286,PEEK<65286) OR 16 
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plus/1 


1 i sta 


o 


1000 
0 1010 
1020 
1030 
° 1040 
1050 
q 1060 
1070 
1080 
O 1090 
1100 
1H0 
° 1120 
1130 
O U40 
1150 
1160 
O 1170 
1180 
1190 
u 1200 
1210 
O 1220 
1230 
1240 
O 1250 
1260 

O 1270 

1280 

1290 
O 1300 
1310 
1320 
° 1330 
1340 
q 1350 
1360 
1370 
O 1380 
1390 


RÉM"===== Adatbevitel ============= 

INPUT " CclrDCcudl Programok száma=" 
DIM n$(n) 

FÓR j=l TO n 

PRINT USING "###. program=”;j; 
INPUT n$< j) 

NEXT j 

INPUT ”Icudl Kezdő lapszám=“;l 
b= 0 : REM”Sorszámláló 
OPEN15,8,15,"i” 

OPEN 4,4,7 

RÉM" < L-i-s-t-á-z-ó c-i-k-l-u-s > 
FÓR j=l TO n 

m=10 : RÉM"Bal oldali margó 

OPEN 3,8,3, ní< j ) + ",p,r" 

IF b>50 THEN GOSUB 3000 
GOSUB 2000 

GET#3,p$,p$,pS,p* : p=ASC<p$) 

DO UNTIL p=0 

IF s>54 THEN GOSUB 3000 
IF s= 0 THEN GOSUB 2000 


; r> 


o 


O 


O 


O 


O 


GET#3,lb$,hb* : RÉM"BASIC sorszám 


1b=ASC <1b$ +CHR$(0)) 
hb=ASC(hb$+CHRS< 0)) 
ln=256*hb+lb 

PRINT#4,USING "######### ";ln; 
q=0 :GET#3,p$; p=ASC(p$) 

IF p=236 OR p=l30 THEN m=m-2 
m$=RIGHT*(STRSt100+m). 2) 

PRINT#4,CHRÍ <16 >m$; 

DO UNTIL p=0 

PRINT#4,k$(p, q>; 

IF p=235 OR p=129 THEN m=m+2 
IF p=34 THEN q=l-q 
GET#3.p$. : p=ASC< p$) 

LOOP 

PRINT#4 ; s=s+l 
GET#3,p$,p$ : p=ASC(p$) 

LOOP 

CLOSE 3 :PRINT#4 ; s=b+1 


o 


o 


o 


o 


o 


1400 NEXT j O 

1410 CLOSE 4 : CLOSE 15 
° 1420 END 

2000 RÉM”-Fejléc + lapszám- O 

O 2010 PRINT#4,CHRS<14)" "n$<j)CHR*Í15)i 

2020 11 $=CHR*( 16) + "45-"+STRS(1) + " 0 

2030 IF s—0 THEN PRINT#4,11$; :1=1+1 

O 2040 PRINT#4 :PRINT#4 ;s=s+2 ;RETURN 


3000 RÉM"-Lapdobás- O 

_ 3010 DO WHILE s<72 
U 3020 PRINT#4 :s=s+l 

3030 LOOP ;s=0 : RETURN -O 

o_ _----—- 


(Az idézőjel ASCII kódja 34.) A p aktuális értékéből állapítjuk 
meg az adott sorban szereplő DO=235 és FOR=129 illetve 
LOOP=236 és NEXT=130 alapszavakat. Ha ilyen szerepel, 
akkor az m margó méretét a megfelelő irányban 2-vel változtat¬ 
juk. 

Fejlesztési lehetőségek 

A közölt program szándékosan csak a legszükségesebb 
funkciókat valósítja meg, alkalmat adva az egyéni ízlés és 
szükséglet szerinti kiegészítésre. A fejlesztés során az első 
lépéshen a megfelelő adatvédelmet célszerű megvalósítani. 
További ajánlott kiegészítés a lapszámozás, címkiírás felté¬ 
telessé tétele, vagy a sorok számának megadása. Több lemezre 
is kiterjeszthetjük a listázást. Ekkor a lemezcsere idejére vára¬ 
koztatni kell a programot. Ilyen várakoztatásra esetleg lapon¬ 
ként, vagy programonként is sor kerülhet. A vezérlő karakterek 
emlékeztető kódjainak táblázata is egyénileg változtatható. 
A legtöbb módosítást azoknak ajánlhatjuk, akik az MPS801-nél 
többre képes nyomtatóval dolgoznak. A program 370 és 430 
soraiban állítjuk be a BASIC alapszavak nyomtatási típusát. 
A CHR$(145) kód a nagybetűs készletre váltja át a nyomtatót, 
a CHR$(17) pedig visszaállítja az SA 7 másodlagos címmel 
megnyitott kisbetűs írást. Ezeket a kódokat kicserélhetjük más 
írástípust vezérlőkre. A program listája SP—180VC nyomtatóval 
készült úgy, hogy a sorszámokat dőlt betűkkel, a BASIC alap¬ 
szavakat pedig kövér betűkkel nyomtattuk. 

Dr. Hack Frigyes 


FÁST VALIDATE 
C+4 


Az itt közölt program a C- újság 1988/9. számában megjelent 
C64-es program átirata PLUS/4-es gépre. Beírás után mentsük 
ki a programot, majd futtassuk. A gépi kódú programot saját 
magára tölti. Ezt ismét mentsük ki. (A program beállítja a 
$2B—$2C és a $2D—$2E vektorokat, ezért DSAVE-vel kiment¬ 
hető.) A működési leírást lásd a C64-es változatnál. 


0 1.00 RÉM" * **** ********** «* «*«* «« «**«*«*♦* 
tlflí) RÉM"* . . * 

110 RÉM"* C= ÚJSÁG SORSZÁM '-161 * 

115 RÉM"* FÁST VALIDATE +4 * 

_ 120 RÉM"* PROGRAM CROWN S. CO. * 

O 12.5 RÉM"* * 

130 RÉM"******************************** 
135 RÉM 

14Ö DATA 0,36,16,195,?,158,52,49 
o 145 DATA 51,52,32,70,65,83,84,45 
15© DATA 86,63,76,73,68,65,84,69 
155 DATA 32,32,67,61,32,85,74,83 
160 DATA 65,71,32,0,0,0,32,11 
r» 165 DATA 142,234,234,234,234,234,234,234 
170 DATA 234,234,234,234,234,234,234,234 
175 DATA 234,234,234,234,234,234,234,234 
180 DATA 234,234,234,234,234,234,234, 234. 
185 DATA 234,234,234,234,234,234,234,234 
O 190 DATA 234,234,234,32,231,255,169,192 
195 DATA 141,25,255,169,193,141,21,255 
208 DATA 169,113,141,59,5,169,135,160 
205 DATA 20,32,144,18,32,228,255,240 
0 210 DATA 251,201,3,208,3,76,75,17 


o 

o 

o 

o 

o 

o 


O 215 DATA 169,49,160,21,32,144,18,169 
220 DATA 1,162,8,160,15,32,186,255 
225 DATA 169,0,133,183,32,192,255,32 
„ 230 DATA 214,17,185,161,18,32,210,255 

O 235 DATA 200,208,247,169,51,32,196,17 
240 DATA 32,214,17,185,11,19,32,210 
245 DATA 255,200,208,247,169,0,162,64 
250 DATA 133,251,134,252,169,35,133,255 
O 255 DATA 163,51,32,196,17,32,204,255 
260 DATA 162,1,32,198,255,168,0,32 
265 DATA 207,255,145,251,206,21,255,238 
270 DATA 21,255,200,192,42,144,240,24 
275 DATA 165,251,105,64,133,251,144,2 
U 280 DATA 230,252,32,223,255,240.90 - 1 68 
285 DATA 56,138,255,288,203,32,204,255 
290 DATA 32,214,17,185,205,19,32,210 
295 DATA 255,200,192,144,144,245,162,l 
O 300 DATA 138,10,10,168,169,253,153,1 
305 DATA 112,153,2,112,138,32,14,18 
310 DATA 153,0,112,56,233,23,73,235 
315 DATA 170,169,253,74,202,208,252,153 
n 320 DATA 3,112,166,34,232,224,36,144 
325 DATA 215,162,18,160,1,142,64,68 
330 DRTA 140,65,68,136,32,30,18-169 
335 DATA 52,32,196,17,32,225,255,208 
340 DATA 20,162,1,32,201,235,169,73 
U 345 DATA 32,210,235,234,234,234,234,234 
350 DATA 234,234,76,180,17,32,204,255 
355 DATA 162,1,32,198,255,32,207,255 
360 DATA 201,255,208,73,32,207,255,201 
O 3^5 DATA 255,240,23,170,32,207,255,l68 
370 DATA 32,30,18,32,207,255,170,32 
375 DATA 207,255,168,32,30,18,169,51 
380 DATA 208,183,32,214,17,185,74,20 
r\ 385 DATA 32-210,255,200,192,36,144,245 
390 DATA 160,4,185,0,112,32,210,255 
395 DATA 200,192,144,144,245,169,51,32 
400 DATA 196,17,32,204,255,162,1,32 
_ 405 DATA 198,255,32,207,255,32,210,255 

O 410 DATA 201,13,208,246,32,204,255,169 
415 DATA 1,32,195,255,169,2,32,195 
42@ DATA 255,76,124,18,72,32,204,255 
425 DATA 162,1,32,281,255,169,85,32 
Q 430 DATA 210,255,104,76,210,255,32,204 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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435 ÜRTR 255,16^,2,32,195,255,169,2 
440 ÜRTR 162,8,160,2,32,186,255,169 
445 ÜRTR 2,162,110,160,20,32,189,255 
450 ÜRTR 32,192,255,162,1,32,201,255 
455 ORTR 160, 7 ,185,111,20,32,210,255 
460 ORTR 136,208,247,32,204,255,162,2 
465 ORTR 32,201,255,160,0,96,134,34 
470 ÜRTR 162,4,221,118,2Ö,202,176,250 
475 ORTR 189,123,2.0, 166,34,96,120,224 
480 ÜRTR 36,l76,250,138,240,247,32,14 
485 ÜRTR 18,133,34,196,34,176,238,134 
490 ORTR 34,132,35,138,10,10,133,36 
495 ORTR 152,74,74,74,24,101,36,170 
500 ÜRTR 152,41,7,168,185,127,20,61 
505 ORTR 1,112,240,209, 185, 12 7,20,73 
510 ORTR 255,61,1.112,157,1,112,166 
515 ŰRT R 36,222,0, 112, 165,35, 10, 168 
520 ÜRTR 198,34,165,34,162,0,134,34 
525 ÜRTR 74,102,34,74,102,34,9,64 
530 ÜRTR 133,35 , 1 77, 34 , 178,200, 1 77 ,34 
535 ÜRTR 168,76,38,18,88,96,0,0 
540 ÜRTR 0,0,0,0,0,0,0,0 
545 DRTR 0,0,©,0,0,0,0/O 
550 ORTR 133,34,132,35,16Ű,0,177,34 
555 ÜRTR 240,6,32,210,255,200,203,246 
560 ÜRTR 96,160,8,185,12,5,153,8 
565 ÜRTR 4,200,208,247,96,24,144,51 
570 ÜRTR 24, 144,73, 133,74,174,8,28 
575 ÜRTR 36,74,43,2,232,232,282,138 
580 ÜRTR 41,3,133,75,173,0,28,41 
585 ÜRTR 252,5,75,141,8,28,162,8 
590 ÜRTR 169,16,202,288,253,74,144,258 
595 ÜRTR 198,74,165,74,41,127,20©,213 
600 ÜRTR 134,74/96,169,255,141,5,24 
605 ÜRTR 44,5,24,16,12,44,8,28 
618 ÜRT R 48,246,173,1,28,1.84 , 168,8 
615 ÜRTR 96,76,168,5,133,5,165,3 
628 ÜRTR 48,252,281,1,240,242,162,3 
625 ŰRT R 76,10,230,32,66,208,120,169 
630 ÜRTR 162,32,6,4,169,1,133,12 
635 ÜRTR 208,11,128,32,126,249,230,12 
640 ÜRTR 169,2,32,6,4,173 - 12,28 
645 ÜRTR 9,14,141,12,28,169,255,168 
658 ÜRTR 44 , 15:3,255,2,136,208,258, 132 
655 ÜRTR 48, 1.32,49,288,132,68,165,12 
668 ÜRTR 32,75,242,133,59,133,55,138 
665 ÜRTR 18,10,10,10,18,133,68,173 
670 ORTR 8,28,41,159,5,68,141,8 
675 ÜRTR 28,32,8,4,88, 2.54, 184 , l 73 
688 ÜRTR 1,28,281,82,248,6,198,68 
685 ŰRT R 16,239,48,71,162,2,88,254 
698 ÜRTR 184,173,1,28,202,16,247,42 
695 ÜRTR 8,74,74,74,168,185,168,248 
700 ORTR 40,186,74,74,133,70,32,8 
705 ÜRTR 4,162,0,88,254,184,173,1 
718 ÜRTR 28,149,36,232,224,6,144,243 
715 ŰRT R 168,36,32,232,247,165,78,168 
720 ORTR 74,197,59,176,18,165,83,153 
725 ÜRTR 0,3,165,84,153,1,3,198 
730 ORTR 55,288,166,173,8,3,162,43 
735 ŰRTR 141,67,2,142,73,2,32,44 
748 ÜRTR 193,120,169,1,133,165,169,3 
745 ORTR 133,166,76,86,230,2.4, 144,24 
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750 OHTO 1.20-169.164,32,6,4,88,32 
755 ORTR 66,208,169,2,133,59,169,6 


31 


36 


34 

,32 


•60 ORTR 133-60,162,18,160,1,208 
765 ORTR Jl74,0,6, 172, 1,6,24, 165 
778 ORTR 59,105,32,133,59,144,27, 

775 ORTR 27,48,5,169.144,32,3,4 
780 ORTR 202,142,1,3.232,240,60, 1 
785 ORTR 12,132.13,169,128,133,27 
790 ORTR 3,4,168,2,177,59,153,0 
795 ORTR 3,136,16,248,41,255,248,200 
800 ORTR 48,8,70,27,208.152,145,59 
805 ORTR 240,190,41,15,2.01,4,240,5 
810 ORTR 169,0,170,240,8,160,19,17? 

815 ORTR 59,170.200,177,59,142,3,3 
820 ORTR 141,4,3,169,255,162,4,76 
825 ORTR 173,5,120,160,140,185,35,5 
830 ORTR 153,3,7,136,208,24 7,88,169 
835 DRTR 144, 1.33,4,165,4,48,252,72 
848 DRTR 32,66,208- 104,201,1,240,5 
845 ORTR 162,4,76,65,214,96,35,50 
850 DRTR 0,32,50,32,80,45,66,36 
►355 ORTR 31,25,18,17,18,19,21,1 
860 ORTR 2,4,8,1.6,32,64,1 28, 13 
865 DRTR 14,8,147,13,13,13.13,32 
870 ORTR 32,32,32,32,32,32,32,32 
875 ORTR 32,32,32,198,65,83,84,45 
880 DRTR 214,65,76,73,68,65,84,69 

13.32.32.32.32.32.32.32 

32.32.32.32.32.163.163.163 

163.163.163.163.163.163.163 

163.163.13.13.32.32.32.32 
32,80,76,85,83,52,32,38 

32.214.195.49.53.52.49.32 
915 DRTR 86,65,76,84,79,90,65,84 
920 DRTR 58,49,53,83,13,13,32,32 
925 ORTR 32,32,32,32,213,74,82,65 
930 DRTR 73,78,68,73,84,65,83,72 
935 ORTR 79,90,58,210,213,206,32,86 
940 DRTR 65,71,89,32,198,54,33,13 
945 DRTR 13,13,32,32,32,32,32,18 
958 DRTR 32,213,83,83,32,76,69,32 
955 ORTR 69.71,89,32,66,73,76,76 
960 DRTR 69,78,84,89,85,84,32,33 
965 DRTR 32,46,46,46,146,13,13,13 
970 DRTR 0,32,32,32,32,32,32,32 
975 DRTR 32,32,32,32,32,32,5,214 
980 ORTR 193,204,201,196,193,204,207,203 
985 DRTR 46,46,46,158,13,13,13,0 
990 ORTR 0,0,66,82,69,65,75,0 
995 DRTR 80,0,0,0,0,0,0,-1 
1000 H-4096 : 1 =. 

1005 00 > RERDR ■ I f R<. VHENEX 1 T 

1010 POKEH,fi'H«H+1>I■I+R’LOÜP 

1015 I FT 014?134THENPRINT" XBRJNOS ELRONTOT TRD 
! »> SOK SIKERT . -ENO 

1020 P0KE43,t'P0KE44,16'P0KE45.92>P0KE46,21 : END 


885 DRTR 
890 ORTR 
895 ORTR 
900 DRTR 
905 DRTR 
910 ORTR 
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5. Enterprise ZX Emulátor és 
SYSTEM BÚS BRIDGE 



1. Enterprise 128 KByte-os 
számítógép és magnó 


4. Enterprise impedancia-illesztő 
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HARDVER 

A NOVOTRADE RT. 
2q Áruházában 
megvásárolhatók 





Számítástechnikánk a jövő technikája 


Örömmel látjuk a 

2C 

áruházban 


1136 Budapest XIII., Balzac u. 35. Tel. 402-954 
Nyitva: hétfőtől péntekig 9-től 18 óráig 


9. Enterprise Mouse 


WITH OBSOLESCSNCE HlIfcT OVI 


4 000 Ft 


8. Enterprise EX—DOS illesztőkártya 


10. Enterprise Speak EASY 


11. Enterprise DIN monitorkábel 


7. Enterprise alapgép és 
magnó porvédő 
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KÉPESÍTŐ 


Operációk BAS/C-ben 



így számol 
a komputerünk 


Állj, állj, szó sincsen semmiféle sebészeti beavatkozásról! 
Sokkal inkább az érdekel minket, hogyan gondolkodik a C64, 
a Cl28 és a C16/Plus4, s hogy ezt hogyan tudjuk kihasználni. 

Ezúttal sem sebészeti tárgyú előadást, sem pedig egy hard¬ 
veres tanfolyamot akarunk tartani. Az a célunk, hogy kitárgyalva 
a Commodore házi számítógépek által BASIC-ben használatos 
műveleteket, a kezdő programozónak lehetővé tegyük gépének 
jobb megértését. 

BASIC tanfolyam igen sok van. Ami azonban mindig hiányzik, 
az az adott parancsok trükkös alkalmazásának ismertetése. 
Éppen ezért most a matematikai és a logikai műveletekkel 
fogunk foglalkozni. Ezek a megfelelő alkalmazásnál ugyanis 
rengeteg időt és tárolót képesek megspórolni nekünk. Egyelőre 
azonban „hiányoznak" nekünk az alapismeretek, ezért most 
ezzel kezdjük a tanulást. 

Hogy a BASIC-ben végzett műveleteket igazán megérthes¬ 
sük, segítségünkre van a fogalom magyarázata: 

Matematikai műveletek 

Számítógépes (és matematikai) műveletek alatt értünk min¬ 
denféle számítási műveletet, ahol egy matematikai kifejezést 
a matematika törvényszerűségeit figyelembe véve értékelünk 
ki és alakítunk át. 

Azokat az értékeket, amelyekkel történik valami, operan- 
dusnak nevezzük, az operátorok pedig a műveleti előírást 
adják meg, azaz azt, mi történjen tényelegesen. A mellékelt 
példán szemléltetjük az elmondottakat. 


Az elvégzendő művelet: ÖSSZEADÁS 


3 + 5 

1. operandus operátor 2. operandus 
(a műveleti előírás) 


A C64, a C16/plus4 és a C128 háromféle műveletet (operátort) 
bocsát a programozó rendelkezésére: 

— A számítási műveleteket, 

— az összehasonlító műveleteket és a 

— logikai műveleteket. 

Nézzük meg most az egyes műveleti fajtákat. 

' A SZÁMÍTÁSI MŰVELETEK ; ■»: 

A számítási műveleteket a BASIC-ben a legkülönfélébb 
számítások elvégzésére használjuk (például W=GXP/100). 
Ezeket az aritmetikai műveleteket számítási operátorokkal hajt¬ 
juk végre. Azt kell itt tudnunk, hogy az operátor mindig az 
operandusok között áll. ötféle számítási műveletet ismer 
a BASIC: 

1. Az összeadás (szimbóluma: +) 

Az operandusokat összeadjuk. Ádjuk be például parancs¬ 
módban: 

PRINT 1+12+3 <RETURN> 

A képernyőn a 16-os értéket kapjuk eredményül. Figyelem! 
A „+" jel használható sztringek „összeadására” (összetűzé¬ 
sére) is, ebben az esetben azonban egy sztringműveletről van 
szó. ■ 

2. A kivonás (szimbóluma: —). 

A jobboldalon álló értéket kivonjuk a baloldaliból: 

PRINT 9-20 <RETURN> 

A képernyőn a—<1 fog áll ezután. Figyelem! Amint azt látjuk, 
a mínuszjel jelenthet negatív előjelet is. 

3. A szorzás (szimbóluma: x). 

Az operandusokat összeszorozzuk. 

PRINT 2x5x6 <RETURN> 


Az alábbi példa eredménye 60 lesz. 

4. Az osztás (szimbóluma: /). 

A matematika szabálya szerint az osztandó (baloldali érték) 
elosztjuk az osztóval (jobboldali érték). 

PRINT 1/19 <RETURN> 

Az osztás eredménye 0,052631579. 

5. A hatványozás (szimbóluma: T). 

Az alapot (baloldali érték) a kitevőre (jobboldai érték) emel¬ 
jük, azaz annyiszor szorozzuk meg önmagával, amennyi a kitevő 
értéke: 

PRINT 3T3 

A művelet eredménye 27 (=3x3x3) lesz. 

Ne feledjük el, hogy minden számítási műveletet lebegő¬ 
pontos számábrázolással (azaz tizedespontos számokkal) haj¬ 
tunk végre. Amikor megadjuk az értékeket (operandusok), 
akkor a C64 interpretere átalakítja azokat lebegőpontos alakra, 
majd a művelet végrehajtása után az eredményt visszaalakítja. 
Ha a lehetséges maximális értéket túllépjük (+1.70141183 
E+38), túlcsordulás hibajelzést kapunk: 70WERFLOW ERROS. 
Ha a legkisebb lehetséges pozitív értéken akarunk túllépni 
(+2.9387588 E—39), eredménynek nullát kapunk. 

Ha egy integerként deklarált, azaz egy egész szám esetében 
lépünk túl a megengedett határokon (—32768<=x< = +32767), 
akkor az 7ILLEGAL QUANTITY ERROR hibajelzéssel kell majd 
szembenézni. Ha valamikor nullával osztanánk, akkor a 7DIVI- 
SION BY ZERO ERROR hibajelzést fogjuk kapni. 

Ha a műveleteket kombináljuk egymással, akkor ügyelni kell 
a prioritásokra. Például a 2+3X2 2 esetében előbb a hatvá¬ 
nyozást hajtjuk végre <2 2 =4), mert ez rendelkezik a legmagasabb 
prioritással, majd ezt a kapott értéket szorozzuk meg 3-mal 
(3x4=12), végezetül az összeadás jön. A példánkban ugyanis 
az összeadás a „legértéktelenebb". Azaz végeredménynek 
2+12— 14-et kapunk. 

a legmagasabb 
prioritás 
t 
f 
t 

a legalacsonyabb 
prioritás 


1 hatványozás 
x / szorzás, osztás 
H— összeadás, kivonás 
< = > összehasonlító műveletek 
NŐT logikai tagadás 
AND logikai és 
OR logikai vagy 


Azonos prioritású műveletek esetében balról jobbra történik 
a műveletek végrehajtása. 


ÖSSZEHASONLÍTÁSI MŰVELETEK 


Az összehasonlítási műveleteket főleg két operandus össze¬ 
vetésére használjuk. Ez a fajta művelet igaz/hamis értékelést ad. 
Ha a kifejezés igaz (helyes), akkor „—1" lesz az eredmény, 
ha az hamis, akkor pedig nulla. (Közelebbit a magyarázó részben 
a „Logikai változók” alatt.) Általában az összehasonlító művele¬ 
teket az IF utasításban használjuk. Ott a kiértékelés eredménye 
a programozó számára érdektelen. 

Hat kü lön böző összehason lító operátor létez ik: 

1. > nagyobb mint, 

2. = egyenlő, 

(Figyelem, az egyenlőségjelet értékadásként is használjuk: 
pl. A=10, B=C, A$=,.MINTA", stb.). 

3. < kisebb mint, 

4. > = nagyobb egyenlő, 

5. < > nem egyenlő, 

6. < = kisebb egyenlő. 

Például: 

PRINT 3=5 eredménye 0, mivel az állítás hamis. 

PRINT 3+4<7+4 eredménye —1, mivel az állítás igaz. 

PRINT 14< >2 eredménye—1, mivel az állítás igaz. 

Az összehasonlító műveletekkel nemcsak számokat lehet 
igaz/hamis alapon letesztelni, hanem sztringeket (karakter¬ 
láncokat) is. Itt a szringeket karakterenként vetjük össze egy¬ 
mással. Az értékelés alapja a Commodore jelkészlet szerinti 
kódsorrend, azaz A<B<C stb. (Lásd ehhez a gépkönyvet is) 
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Ebben az összehasonlításban a sztringeknek nem kell azonos 
hosszúnak lenniük. 

Ügyeljünk feltétlenül az összehasonlítási műveletekre. Ha 
egy numerikus értéket és egy karakterláncot hasonlítunk össze, 
akkora ?TYPE MISMATCH ERROR hibajelzést kapjuk. 

Mint a számítási műveletek esetében, a BASIC interpreter 
az összehasonlítási műveleteknél is lebegőpontos számmá 
alakítja az esetleges egész (integer) számokat. 



Azt is jó, ha tudjuk, hogy a gép a hatványozást igen bonyolult 
módon, a kettes számrendszerben végzi (még a számos alakít¬ 
gatás után), ennek pedig pontatlanság lesz az eredménye. 
Ne csodálkozzunk tehát, ha a ?3 3=27 a gép szerint HAMIS 
állítás! 

Az összehasonlító műveleteket gyakran számítják a logikai 
műveletekhez, mivel ezeknél „igazságérték"-et számolunk ki. 


LOGIKAI MŰVELETEK 


A logikai műveleteket főleg az összehasonlítási műveletekkel 
együtt (az IF utasításban) igaz/hamis kiértékelésre használjuk, 
De a - logikai műveletek igazából bináris jegyekkel történő 
műveleteket jelentenek. A bináris számokról és jegyekről 
a magyarázó részben olvashatunk még. 

A logikai műveleteknél arra kell ügyelni, hogy az operandusok 
az integer számok tartományába (—32768-tól 4-32767) essenek, 
különben 7ILLEGAL QUANTITY ERROR-nak örülhetünk. 

Az esetleg előforduló reál típusú (lebegőpontos) számokat 
a művelet során egész számmá alakítjuk, s az eredmény mindig 
egész szám lesz. A következőkben sorra bemutatjuk majd 
a logikai műveleteket és azok értelmezését a bit/bit össze¬ 
hasonlításokban. A magyarázó részben részletesen kielemez¬ 
zük azokat az igazságtesztszempontjából. 

A következőkben használni fogunk új fogalmakat is: A bit¬ 
eredmény az lesz, ami az operandusok azonos bithelyeinek 
összehasonlításábúl adódik. (Pl. az első operandus negyedik 
bitjét a második operandus negyedik bitjével. A biteredmény 
azután a nyert érték negyedik bitje lesz.) Az operandusok 
a számításra átadott értékek. A logikai műveletek során mindig 
a decimális számértékek bitmintáival számolunk. A „normál" 
számokból tehát az eredményt nem lehet „megjósolni". A példák 
megértéséhez a számokat át kell alakítani bitekké és úgy 
elvégezni a műveletet, majd az eredményt vissza kell alakítani 
decimálissá. 

BASIC-ben négy logikai műveletet ismerünk: 

1. AND (logikai ÉS) 

Például ? 23 AND 46. (Az eredmény 5 lesz, ellenőrizzük le.) 
A logikai ÉS esetében a biteredmény akkor és csak akkor lesz 1, 
ha az operandusok megfelelő bithelyein álló jegyek mindegyike 
1. Ellenkező esetben a biteredmény nulla. 

2. OR (logikai VAGY) 

Például ? 13 OR 54. (Az eredmény 63 lesz.) 


A VAGY logikai művelet esetében a biteredmény akkor és 
csak akkor lesz 1, ha az operandusok megfelelő bithelyein 
álló jegyek közül legalább az egyik értéke 1. Ha mindkét bithely 
értéke nulla, akkora biteredmény is nulla lesz. 

3. NŐT (logikai NEM) 

Például ? NŐT 24. (Az eredmény—25 lesz.) 

A NEM utasításnál — itt csak egy operandust adunk át — 
minden egyes bináris jegyet invertálunk. Nullából egy lesz, 
1-ből pedig nulla. 

4. XOR (kizáró logikai VAGY) (Csak a C128-asnál!) 

Például a BASIC 7.0-ban? XíR(33,15). (Az eredmény 46 lesz.) 
Az „exkluzív”, vagyis a kizáró VAGY esetében a biteredmény 
akkor és csak akkor lesz 1, ha az operandusok megfelelő bit¬ 
helyein ellentétes értékek állnak. 


-AND 

konjukció, egyesítés 
vagy logikai szorzat 
1 AND 1 eredménye 1 
0 AND 1 eredménye 0 
1 AND 0 eredménye 0 
0 AND 0 eredménye 0 

-NŐT 

negáció, tagadás vagy 
logikai invertálás 

NŐT 1 eredménye 0 
NŐT 0 eredménye 1 


-OR 

diszjunkció, válogatás 
vagy logikai összeadás 
1 OR 1 eredménye 1 
0 OR 1 eredménye 1 
1 OR 0 eredménye 1 
0 OR 0 eredménye 0 

-XOR 

„exkluzív” (kizáró) 
VAGY vagy antivalencia 
1 XOR 1 eredménye 0 
0 XOR 1 eredménye 1 
1 XOR 0 eredménye 1 
0 XOR 0 eredménye 0 


A logikai műveletek „igazságtáblázata”. A számítógép eseté¬ 
ben a logikai műveletek alapjában véve csak a 0 és az 1-es 
operandusra vonatkoznak. A táblázat jó képet ad az össze¬ 
kapcsolások menetére és szabályára. 

A negyedik operátor (XOR) csupán a C128-as BASIC 7.0-ban 
van külön definiálva. Ügyeljünk a helyes írásmódra. A XOR-nál 
az operandusokat zárójelben, vesszővel elválasztva kell meg¬ 
adni. Egyébként a C16/Plus4-es és a C64-es is képes a kizáró 
VAGY leképezésére, ha kihasználjuk a logikai műveletek egy¬ 
másba alakítási szabályait: XOR (X, Y) = (XOR Y) — (X AND Y). 

A mellékelt példákon jól szemlélhetjük a fönti állítások igazát, 
illetve a logikai műveletek „munkamódszerét" 8 bit műveletek 
esetében. (A számítógép 2x8=16 bittel számol.) 


33 

AND 

15 

%00100001 

%00001111 

1 

%00000001 

33 

1 

%00100001 

OR 

15 

%00001111 

47 

%00101111 

NŐT 

. » 111 

33 

%00100001 

-34 

%11011110 

33 

%00100001 

XOR 

15 

%00001111 

46 

%00101110 


Mindig csak a megfelelő bithelyeket vet¬ 
jük össze. Ha mindkettő "1", úgy a bit¬ 
eredmény is "1" lesz. 


A megfelelő bithelyeket összevetjük. 

A biteredmény akkor lesz "1", ha legalább 
az egyik bit "1”. 


Csak egy operandust adunk át. Az ered¬ 
ményben az ”1 "-bői ”0", a ”0"-ból "1” 
lesz. A legszélső (7.) bitet előjelindiká¬ 
tornak használjuk. Ha az "1", úgy nega¬ 
tív, ha "0" akkor pozitív számmal van 
dolgunk. 


Az egyes bithelyeket összevetjük. A 
biteredmény csak akkor ”1", ha az 
operandus bithalyek értékei különböz¬ 
nek. 
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Azokat a kifejezéseket, amelyek több, különböző operátort 
tartalmaznak, egyes részenként dolgozzuk föl. Legelőbb a leg¬ 
magasabb prioritású, azután az alacsonyabbrendű műveleteket 
hajtjuk végre. A számítás sorrendjét megváltoztathatjuk (a göm¬ 
bölyű) zárójelek beszúrásával. Több zárójel is állhat a kifejezés¬ 
ben (de mindig párjával — "(" és ”)" — kell szerepeltetni őket, 
különben 7SYNTAX ERROR hibajelzést kapunk). A zárójeleket 
dobozolni is lehet egymásba, de maximálisan tíz síkot (zárójel¬ 
párt) szerepeltethetünk. Ekkor előbb a legbelsőt bontja föl az 
interpreter. Azonos prioritások esetében, mintáz már mondtuk, 
a kifejezés kiértékelése balról jobbra történik. 

A legmagasabb prioritással a számítási operátorok rendel¬ 
keznek (saját fokozatokban), ezt az összehasonlító operátorok 
követik. A logikaiaké a legalacsonyabb prioritás (itt is van egy 
sorrend). Például a ?3x4+1 eredménye 13 lesz, a ?3x(4+1) 
a 15-ötadja. Föntebb megnézhetjük az elsőbbségi sorrendet. 


FOGALOMMAGYARÁZAT 


1. Logikai változók: 

Amint azt láthattuk, a számítógép egy igaz kifejezés kiértéke¬ 
lésekor a "—1” értéket adja, hamisnál pedig a ”0"-t. Tulajdon¬ 
képpen létezik egy változótípus az igaz/hamis kiértékeléshez. 
Ezeket logikai vagy boolean változóknak nevezzük. Ezek csak 
az „igaz” és a „hamis" értékeket képesek fölvenni. 

A Commodore kisgépek esetében ezt a változótípust nem 
különítik el más, numerikus változóktól (azaz erre a célra nincs 
külön változódefinició). Emiatt azután azokkal a változókkal, 
amelyekhez logikai igazságértéket rendeltünk hozzá, később 
más műveleteket is végezhetünk. 

2. A bináris (duális) rendszer: 

Az általunk ismert és használt tizesalapú számrendszerrel 
(tíz jegy) szemben a számítógép kettes alapon dolgozik. Itt 
csak két jegy, a nulla és az egyes áll a rendelkezésre. 

Mialatt a tizes rendszer számainál a tizedesponttól jobbra 
álló számjegyek értéke a tíz hatványaival (1, 10, 100. 1000, stb.) 
növekszik, a bináris rendszerben ez a faktor a 2 (1,2,4,8,16, ...). 
Egy n-jegyű szám alakjai a két számrendszerben: 
tizes: a n x10 n +a n —ix10 n - * 1 +.. ,4-a 2 x10 2 3 4 5 -í-a 1 x10-Fa 
kettes: anX2 n +a n _iX2 n '+... +32X2 2 ^a-i x 2+a 
A kettes számrendszer jegyeit a számítógép jól tudja „értel¬ 
mezni", hisz ez a be/ki, a van áram/nincs áram, állapotot képezi 
le. Decimális számot az alábbi módon alakíthatunk át: 

Például a 221 (= 2x100+2x10+1) binárisan az 11011101-nek 
{*= 1 X128+1 x 64 + 0 x 32+1 X16+1 x8+1 x4+0 x 2+1). 

Az átszámítási mechanizmus egyszerű: 

221/2 = 110, a maradék 1 0. bit 
110/2= 55, a maradék 0 1. bit 
55/2 = 27, a maradék 1 2. bit 
27/2= 13, a maradék 1 3. bit 

13/2 = 6, a maradék 1 4. bit 

6/2 = 3, a maradék 0 5. bit 

3/2 = 1, a maradék 1 6. bit 

1/2= 0, a maradék 1 7. bit = %1101 1101 




KÉPESÍTŐ 


A 221 bináris megfelelője tehát az 1101 1101 let. Addig kellett 
tehát osztani kettővel, amíg a decimális szám el nem „tűnt". 
A bináris számot a fönti séma szerint azután alulról kezdve 
kell „összeolvasni”, mint ahogy a decimális rendszerben is 
a legnagyobb helyiértékű szám áll legeiéi. A bináris számjegyek 
„értékei" mindig az adott osztás maradékai lesznek. Hogy 
a bináris számokat meg lehessen különböztetni másoktól, ezért 
a szám elé a százalékjelet (%) írjuk: %221 = 1101 1101. 

3. Logikai műveletek és az igaz/hamis kiértékelése. 

A számítógép egy igaz kifejezés értékének '1"-et, hamisé¬ 
nak nullát ad meg. Ha a két érték bináris alakját nézzük, meg¬ 
állapíthatjuk, hogy a—1 ellentéte épp a nulla: 

0 = 0000 0000 0000 0000 

—1 = 1111 1111 1111 1111 

A számítógép az egész számokat 16 biten (0—15) ábrázolja. 
A 15. bitet azonban félre kell tennünk az előjel számára. Ha a 15. 
bit értéke egy, úgy negatív, ha nulla, akkor pozitív számról van 
szó. Nullánál minden bit nulla, a —1 esetében minden bit 
értéke egy. 

A negatív számokat különleges módszer szerint kell ábrázolni. 
Ha látjuk, hogy a 15. bit egy, leválasztjuk azt. A maradék jegyeket 
NŐT paranccsal átbillentjük, majd a kapott eredményhez 
hozzáadunk 1-et: 

-1 = 1111 1111 1111 1111 = > 1/000 0000 0000 0000 +1 = >-1 
—34 = 1111 1111 1111 1101 = > 1/0000000 0010 0001 + 1 = 

— > _34 

(Lásd a NŐT 33 példát föntebb.) 

A logikai változók csak egy bitet tartalmaznak. Mivel a BASIC 
az összehasonlításoknál és a logikai igaz/hamis kiértékelésnél 
az integer értéktartományt használja, definiálni kellett az egy¬ 
értelmű állapotokat: 

Minden bit bekapcsolva = igaz. Minden bit kikapcsolva = 
hamis. A definíció korrekt, a logikai műveletek a megfelelő 
értékeket adják (lásd föntebb az igazságtáblázatot): 

—1 AND —1 = —1 —1 OR -1 = —1 —1 XOR -1=0 
XOR (-1,-1) = 0 

0 AND —1 = 0 0 OR —1 = -1 0 XOR —1 

XOR ( 0,-1) =—1 

—1 AND 0 = 0 —1 OR 0 = —1 —1 XOR 0 = —1 
XOR (—1, 0) = —1 

0 AND 0=0 0 OR 0= 0 OXOR 0= 0 

XOR ( 0, 0) = 0 

Az XOR csak a BASIC 7.0-ban van parancsként definiálva, 
adott esetben azt a föntebb megadott módon kell megvalósí¬ 
tani. Az igaz/hamis kiértékelést leggyakrabban az IF utasítás¬ 
nál használjuk: 

10 IFA = 3 And Y = 13 THEN30 

Ebben az esetben kombináljuk az összehasonlítási ésa logikai 
műveleteket az igazság kiértékeléséhez. (Akkor léphetünk 
csak' a 30. sorra, ha az A = 3 és az Y = 13 feltétel egyszerre 
teljesül. 

Figyelem! Az IF utasítás egy kifejezést akkor ismer el igaznak, 
ha az nullától különböző értékű. Azaz akkor is, ha a kifejezés 
értéke nem —1, de nem nulla. Az IF tehát minden nulla értéket 
adó kifejezést hamisnak talál. 


Sprite tervező segédlet 


i i i 

2631 2631 2631 

842684218426842184268421 
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Az alábbi kis program sprite-ok tervezéséhez nyújt segít¬ 
séget. Hatására a nyomtatón a 64-es kézikönyvéből megismert 
sprite tervező rács jelenik meg. 


1 RÉM ************************£*** 

2 R.EM * C= ÚJSÁG SORSZÁM ■ f Oí * O 

3 RÉM * SPRITE TERVEZŐ * 

4 RÉM * * 

5 RÉM **************************** 

100 PRIHT"CSÖBREITE-TERVE20 NÉGYZETRÁCS" O 

110 PR INT" WW ' P' = PR. INT VAGY" 

120 PR I NT" KI ' V' = VEGE . . 

130 GET A* 

140 IF Asr="V" THEN END J 

150 IF At-O"P" THEN 130 

160 A*=CHR* C 15 > e*=CHR* f. 8 > ■ 0PEN4,4 - CMD4 

170 FÓR J-l TO 3• PRINT" 1“; SPC<?> 5 ■ HEXT > PRIHT r> 

180 FÓR J=1 TO 3‘PRINT“2631";SPC<4>‘NEXT•PRIHT 

190 FÓR J=1 TO 3>PRINT"84268421",-NEXT-PRINT 

200 FÓR R=1 TO 21 : FÓR C=1 TO 24 > PRINT CHR*<111>; ’HEXT 

210 PRIHT CHR*< 165> ; MID*ÍSTR.*<R> , 2> ; B* ' PR.INT A*; -HEKTÓ 

220 FÓR .J-l TO 24'PRIHT CHR*< 163> i = NEXT 

230 PRINT44 >CL0SE4 ___ 


O READY. 


























































HIRDETÉS 

NOVOTRADE PC SZALON Bp. 1136 Sallai u. 6. Tel.:310-776 


Rendkívüli ajánlatunk ! 

OLIVETTI M-15 (IBM PC/XT kompatibilis táskaszámítógép) 

- 512 Kbyte RAM • 2 x 720 Kbyte mikrofloppy • CGA felbontású LCD display • külső 

csatlakoztatási lehetőség • soros/párhuzamos interface • hordtáska . 

Az árengedményben részesülnek azok a kedves ügyfeleink, akik pavilonunkban 
vásárolnak vagy az ott kitöltött űrlapot részünkre 30 napon belül visszaküldik. 

BONUS ! 

Az így vásárolt gépekhez a 3.5"-os mágneslemezekre 20% árkedvezményt adunk. 

v-I-I 



ELŐSZÖR MAGYARORSZÁGON ! 

ASHTON-TATE: 

dBASE-IV Ver.1.0 Standard edition • Developers 
edition • LAN Pack 

FRAMEWORK-III Standard edition • LAN Pack 
Front Runner 
- Turbo Search 
Rapid Fiié 
Byline 

DrawApplause 

ChartMaster • DiagramMaster • SigneMaster • 
MapMaster • StepForward • 

v— ■i) 


r -\ 

IMPORT SZOFTVEREK 

Az alábbi programok kizárólagos ma¬ 
gyarországi forgalmazói vagyunk : 

BORLAND: 

QUATTRO Ver 1.01 (magyar változat) 

DIGITAL RESEARCH: 

GÉM Desktop (magyar változat) 

- GÉM Draw Plus (magyar változat) 

GÉM Ist Word Plus (magyar változat) 

- GÉM Scan (magyar változat) 

V_ ) 


r *" ” ; 11 — --\ 

DESKTOP PUBLISHING 

- nagyteljesítményű alapgépek (AT 
286, AT 386) 

- full page monitorok (A3, A4 méret, 
1664x1200-as felbontás) 

- PostScript lézernyomtató 

- scannerek 

Rendszerkonfigurálási tanácsadás, szál¬ 
lítás az egyedi perifériáktól a kulcsra¬ 
kész rendszerekig. 

’t 1 .á r .. j T : '_ ^ v _ ) 

CAD-CAM 

- nagyteljesítményű alapgépek 
(AT’286, AT’386, kooprocesszorral) 

- nagyfelbontású monitorok (16 és 
20"-os méret, akár 1280x1024-es 
felbontással és 256 színnel is) 

- plotterek (A3-tól AO-ás méretig) 

- digitalizálók 


V:- _ J 
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PROGRAM 


Balnyílcopy 


BASIC nyelvű programok dokumentálásához nagy segítséget 
jelentene, ha a program egyes részeiről, pl. menükről, bejelent¬ 
kezésekről képernyőmásolatot tudnánk készíteni. Ez általában 
nem jelent különösebb gondot, mivel a szaklapok hasábjain 
már megjelentek hardcopy szubrutinok, vagy gépi kódú sys-sel 
indítható hardcopy-k. Ezek használata egy kicsit kényelmetlen. 
Az ideális az lenne, ha a képernyőről bármikor tudnánk készí¬ 
teni másolatot, egyszerűen egy billentyű lenyomásával. A be¬ 
mutatásra kerülő program éppen erre a célra készült. Minden 
olyan BASIC nyelvű program képernyőtartalmáról készíthetünk 
vele papírra másolatot, amely nem használja a COOO-ás és a 
033c területet és nem módosítja az IRQ vektort. 

Egy ilyen program megvalósítását a C64 operációs rendsze¬ 
rének nyitottsága teszi lehetővé. Ami alatt azt kell értenünk, 
hogy kívülről könnyen hozzáférhető és módosítható. Az IRQ 


O 10 
20 
_ 30 

O 40 
100 

o 110 
120 
130 
140 


OPEN1, 8, 1, “ F BALNY I I....COPY " 
0PEN2,4 
SYS9*4096 
„OPT 00,P 

; NYOMTÁTÁS BALRA NYÍLRA 


O 

O 

O 


O 


; A KARAKTERES KÉPERNYŐ NYOMTATÁSA 
S HÍVÁS SYS 12*4096 O 


o 


150 

151 

XRQVEC 

= *0314 


152 

IRQRUT 

= *EA31 

O 

160 

TEMP 

= *FC 


170 

PT 

= *FD 

o 

180 

SCREEN 

= *0400 


190 

SETFPA 

= *FFBA 


200 

SETFN£i 

= *FFBD 

o 

210 

OPEN 

«= *FFCO 


220 

CKOUT 

= *FFC9 

o 

230 

CLRCH 

- *FFCC 

240 

BSOUT 

= *FFD2 


250 

COLUMM 

= 40 

o 

260 

ROW 

= 25 


2 70 

CR 

= 13 



o 


o 


280 
290 
300 
310 
320 
330 
340 
_ 350 
° 360 
370 
O 380 
390 
400 
O 401 
402 

n 403 

w 404 
407 
O 408 

409 

410 
O 420 

430 
440 
450 
460 
O 470 
480 
490 
O 500 


*=*0000 
AKTÍV SEI; 
#<NYIL 
XRQVEC 
#>NYIL 
TRQVEOl 


AZ IROVERTOR ATIRASA 


LDA 
STA 
LDA 

STA 
CLI 
RTS 

; AZ UJ IRO RUTIN 

NYÍL LDA *CB; LENYOMOTT 

CMP 4439 

BEQ MARD 

LI JMP IRQRUT 

HARD SEI 
LDA #*00 


o 


o 


o 


BILLENTYŰ 


o 


STA 

LDA 

DEC 

LDY 

STA 

LDA 

LDX 

LDY 

JSR 

LDA 

JSR 

JSR 

BCS 

LDA 


*CB 

#*20 

*D3 

*D3 

(*D1) , Y 
#127 
#4 
#0 

SETFPA 

#0 

SETFNA 

QPEN 

QUIT 

#<SCREFN 


5 A CURSOR BALRA 
5 MOZGATÁSA ES 
;A BALNYÍL KOD 
5 KITÖRLÉSÉ A TARBÓL 
; OPEN 127,4,0, 


O 


O 


O 


O 


O 


A KÉPERNYŐ KEZDETEO 




vektor a 0314 és 0315-ös címeken helyezkedik el a RAM-ban, 
és az EA31 ROM-ban elhelyezkedő megszakítás rutin címére 
mutat. Az IRQ vektort egy saját rutinra állítjuk, amely a balnyíl 
billentyűt kérdezi le. Ha ez a rutin billentyű lenyomást észlelt, 
akkor egy hardcopy rutinra ugrik, majd az IRQ rutinra. Ha nem 
volt balranyíl billentyű lenyomás, akkor az IRQ rutinra ugrik. 
A hardcopy rutinnál le kell tiltani a megszakítást és gondos¬ 
kodni kell a balranyíl kód képernyőtárból és az átmeneti tárból 
történő törléséről. Mivel a nyomtatók részére ASCII kódot kell 
küldeni, ezért a képernyőkódot először át kell ASCII kódra ala¬ 



kítani. A balnyílcopy assembler forrásprogramja az 1-es listán 
tanulmányozható és profi assembler segítségével a C64 tárába 
illetve lemezre vihető. Aki ilyennel nem rendelkezik, az a 2-es 
lista BASIC betöltőjét a cOOO-ás, a 3-as listáét a kazettapuffer 
033c területre történő betöltéshez használhatja. A használattal 
kapcsolatban ne feledjük el, hogy először a balnyílcopy prog¬ 
ramot kell betölteni és utána a másolandót. 

Horváth József né 


° 510 

520 
O 530 
540 
550 
O 560 
570 
q 580 
^ 590 
600 
O 610 
620 
630 
° 640 
650 
q 660 
670 
680 
O 690 
700 
710 
^ 720 
730 
o 740 
750 
760 
O 770 
780 
790 
800 
810 
O 820 

830 
840 
o 850 
860 

o 870 

875 

880 

Q 890 


STA PT 

LDA #>SCREEN 
STA PT+1 
LDX #127 5 

JSR CKCIUT 
LDX #ROW ; 

ROWLOQ LDA #CR 

JSR BSOUT 
JSR *FFE1 ; 

BEQ QUIT 
LDY #0 
COLLOO LDA 
STA TEMP 
AND #*3F 
ASL. TEMP 
BIT TEMP 
BPL NQOR 
ÓRA #*80 
NOOR BVS NOADDO 
ÓRA #*40 

NOADDO JSR BSOUT 
ÍNY 

CPY #COLUMN 
BNE COLLOO 
TYA 
CLC 

ADC PT 
STA PT 
BCC NÜ0R1 
INC PT+1 
NOOR1 DEX 
BNE ROWLOO 
LDA #CR : 

JSR BSOUT 
JSR CLRCH 
QUIT LDA #127 
JSR *FFC3 ; 

CLI 

JMP LI 
. END 


PRINT#127, , , . 

A SOROK SZAMA 

; NYOMTATÓ 


CIk 


STOP-GOMB FIBYELES 


<PT>,Y 

! KEPERNYOKOD- 


>asc :i: i 


"KÉSZ?" 


CLOSE 127 


CLOSE 


o 

o 

o 

;u r 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


G 


READY. 


o 


16 


JÚNIUS 































PROGRAM 


O 'J.0 RÉM************************** 


O 

O 

O 

O 

O 

O 

o 

o 

o 


20 RÉM* 
30 RÉM* 
40 RÉM* 
50 RÉM* 
60 RÉM* 
70 RÉM* 
30 RÉM* 


BALNYILCOPY 

i i i 

HORVÁTH JOZSEFNE 


1989 

BUDAPEST 


* 

* 

* 

* 

* 

* 

* 


9 0 R EM************************** 

100 FÓR I =82810965 s READQ : S=S+QPOKEI , QNE XT 

101 DATA 120,169,73,141,20,3,169,3,141,21 

102 DATA 57,240,3,76,49,234,120,169,0,133,203,169,32,198, 

,169,0 


,88,96,165,203,201 


103 DATA 

104 DATA 

105 DATA 

106 DATA 

107 DATA 

108 DATA 

109 DATA 

110 IFSC 


.69,0,133 


211,145,209,169, 

255 

32,201,255,162,25,169,13,32,210, 

, , 


f , 1 a, 

,32,192,255,176,74,3 


,4,160,0,32,186,2od, 


7 ,:; 


j 


,169,4, 


□ o,i 


0,177,253,133,252,41,63,6 

y i ij U “T ij •-.* .ti., ij .A .1 V 4. w w f .AV y .1. / .ti., ij 


r *~y ^ • 

, , .i... 

.ti.. I) I) 4. Ji- y J. C) If . 


" 9 * 

,9. 




,.... v k..i , O , .!. ... 

253,144,2,230,254,202,208,205,169,13,32,2 1 
1 69,127,32, 1 95,255,88,76,79,3,0 
17956THENPRINT"HIBA A DATASORBAN";EMD 


128 


4,101 , 
0,255„ 


211,164 
,32,189 

54.162.1 

40.49.1 
112 

253,133 
32 


27 

60 


. 204, 


120 SYS828: PRINT"OK! !" 
READY. ^ 


O 

O 

O 

O 

O 

O 

O 

O 


255 o 


O 


o 


o 


o 


o 


o 


o 


o 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
120 


RÉM************************** 


BALNYILCOPY 


HORVÁTH 


JOZSEFNE 


RÉM* 

RÉM* 

RÉM* 

RÉM* 

RÉM* 

RÉM* 

RÉM* 

RÉM************************** 
FÓR I 


1989 

BUDAPEST 


* 

* 

* 

* 

* 

* 

* 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


120 , 
57 ,: 
21 1 , 


169 
140, 
145 


255 ’ 

4. \..J if • 


DATA 253,1 


DATA 

IFSC 


"w’ 201 

0,17 7,2 
2,9,64, 

44 

169,127 
18214THENPRINT"HIBA 


A DATASORBAN 1 


:md 


PRINT"OK 1 


o 


o 


o 


IT049 

289 

: S=S 

+Q;READQ:POKEI,Q: 

NE XT 







0 

’ v 13, 

141 

,20, 

3,169,192,141,21, 


,88 ,96 

'1 

165, 

203 

,201 




3,76 

,49 

,234 

,120,169,0,133,20 

3 

,169,3 

n 

4- 

, 193 

,21 

1 , 164 


O 

1,209 

,169,12 

7,162,4,160,0,32, 

i 

86,255 

9 

169, 

0,3 

2,189 



192, 

255 

, 176 

,74,169,0,133,253 

? 

169,4, 

1 

33,2 

54, 

162, 

1 

27 

O 

255, 

162 

ne; 

9 A.U > f 

169,13,32,210,255 

V 

T'7 nOR 

■-.* .4. ij 4.4.U 

■i 

255, 

240 

,49, 

1 

60 

‘.53,1 

33, 

W J... I| 

41, t>3,6,252, 36,25 

n 

4. 

1 A O 

i f J. Q y .4. ij 

9 

, 128 

,11 

n 

.4 



o 

32,2 

10 , 

255 1 

200,192,40,208,23 

0 

. ,-j. '-y 

if X Jjí. ij .4. 

4 

, 101 

,25 

3,13 

3 



n 

‘ 9 V 

30, 

254, 

202,208,205,169,1 


, -..'•y-. , £. .1 

0 

or-ccr 

IJ .1-. **../ \m 

, 32 

, 204 

9 

255 

o 

,32, 

195 

, 255 

,88,76,19,192,255 










o 


READY. 


Számítógépes 

álomország 


kai több, mint tavaly. A számos játék és iWenért 1,95 márkát kértek. Megjegyzendő, 
egy nagy modell kiállítás mellett sok szá-i JJrolt egy raklap Datasette, melynek darab- 
mítógépet és tartozékokat láthattunk. Né.Jnát19,50-ért vihette, aki akarta, és színes 
hány különösen aléupony ár igencsak mjpitor (garancia nélküli 1901-es 250 már- 


különösen aiapsony ár 
meglepte^közonséget. Például 
nat új i fl®neyjcsomagolá' 4fc A4i ' 
ast 20 (írd 



A barkácsolók és technikabarátok álom¬ 
országaként mutatkozott be 1988.11.10. és 
13. között a Hobby + Elektronik kiállítás 
Stuttgartban. A szervezők elmondása sze- 
rint a látogatók száma 75000 volt, amL-starfajáraL 

egyértelműen nagyobb, mint az elggjpÉ^ypfettákat árultak az alábbi felirattal: 
évben. A kiállítók száma 343 volt, ez 45%*^|Pasználhatók üres kazettaként is!” Egy 


. ndd hUsz) i 
QM készlet tartott. 300 
' x otrnm. II t adtak 100 
Horten cég kiállítási 
L, Cl 6-os, C64-es játék¬ 


írt). A kiállítással egyidőben zajlott 
Hulögraphics is, ahol az érdeklődők 
Tégy 2000 négyzetméteres területen 
Informálódhattak a holografika technikái¬ 
ról. A következő Hobby + Elektronik 1989. 
novemberében lesz. 

Info.: Stuttgarter Messe- und Kongress- 
gesellschaft mbH, Postfach 990, D—7000 
Stuttgart 1. 
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HIRDETÉS 


h | |||j ; ff | 

OCTASOFT STÚDIÓ 



ELEMEK (Plus/4) Ára: 289 - Ft OLIVÉR (Plus/4) Ára: 345,— Ft 


A program a kémiai periódusos rendszer eddig felfedezett 
elemeinek tulajdonságait dolgozza fel. Könnyen és gyor¬ 
san lehet egyes elemeket — különböző tulajdonságok sze¬ 
rint — kikeresni, az egész rendszert egy meghatározott 
paraméter szerint rendezni. A programot különösen ajánl¬ 
juk kémia- és fizikatanároknak, de hasznosan tudnak vele 
diákok is tanulni az általános iskola felső tagozatától a 
gimnázium 3. osztályáig bezárólag, otthon is. 

CHARLIE Programrendszer 
(Plus/4) Ára: 399,— Ft 

Bármilyen témájú és nyelvű tesztek készítésére szolgáló 
program. Bárki könnyen írhat teszteket anélkül, hogy kü¬ 
lönösebb programozói ismeretekkel rendelkezne. Az alap¬ 
program két üzemmódban használható. (Tesztelő és teszt¬ 
készítő) 


Olivér, a megfélemlíthetetlen macska ádáz bolhák és só¬ 
tartók össztüzében tör előre feltartóztathatatlanul egy la¬ 
kásban, hogy kiszabadítsa fogva tartott szerelmét. Rajtad 
múlik 01 ivér sikere, ügyesen bánj a billentyűkkel. 

HORROR CITY (C—64, lemezes) 
Ára: 480,— Ft 

Kevin professzor 3112-ben tudományos kísérletei során a 
dimenziók titkait kutatva idegen lényekkel teremtett kap¬ 
csolatot. A három vérszomjas idegen rettegésben tartja 
Hyprapolis lakosait. A Bolygóvédelmi Hivatal különlegesen 
kiképzett robotját is átprogramozták és maguk mellé állí¬ 
tották. Speciális kézifegyverrel indul útnak Sinclair szá¬ 
zados, a rendkívüli adottságokkal rendelkező hölgy. Fel¬ 
adata, hogy a város három körzetéből kikergesse az ellen¬ 
séget, majd otthonukban az időgránát segítségével más 
idősíkba űzze őket. 


PLATINA (Plus/4) Ara: 360,- Ft ESZK | M ó (C—64) Ára: 345,- Ft 


Az Arnex bolygón elfogyott az energia, de a bolygó mélyén 
még elég rejlik az élet fennmaradásához. Segíts az Arnex 
lakóinak, hozd felszínre az energiátl Ezt egy platinagolyó 
segítségével teheted meg, úgy, hogy végigvezeted az 
energiacsapdákon, majd azok kijáratát elérve a szállító- 
rendszeren keresztül eljuttatod a felszínre. 

KIS TÖRTPROFESSZOR 
(TVC64K) Ára: 345,- Ft 

A Kis Törtprofesszor a törtekkel való számolási készség 
fejlesztésére, felmérésére készült négy tudásszinten. Az 
összeadás, kivonás, szorzás, osztás, hatványozás és gyök¬ 
vonás gyakorolható. A program használatát egyéni és 
kiscsoportos foglalkozásokhoz, felmérésekhez ajánljuk a 
KIS PROFESSZOR nevű programmal együtt, amely az 
egész számokkal végzett műveletek gyakorlására készült. 

SMARAGDVÁR (C-64) 

Ára: 345,— Ft 

Hosszú, veszélyekkel teli úton jársz, a régi kincskeresők 
nyomában. Valahol a sötét dzsungel mélyén rejtőzik az ősi 
időkben épült Smaragdvár. A legendák mesés kincsekről 
szólnak, a kincseket őrző titokzatos erőkről és bátor embe¬ 
rekről, akik elindultak, de sohasem tértek vissza... Ha 
felvered a dzsungel csöndjét, lakói ellened fordulnak föl¬ 
dön, vízen, levegőben. Le tudod-e győzni őket? Rátalálsz-e 
a csodálatos Smaragdvárra? Rajtad múlik. Ülj csónakba, 
ragadd meg a botkormányt... 


Egy kicsit unalmas lehet az eszkimógyerekeknek ott, a vég¬ 
telen hómezőkön. Legföljebb a fantázia segíthet. Persze, 
az is ad elég elfoglaltságot, hogy az embernek van egy 
kíváncsi kistestvére, aki folyton elcsavarog, a legképtele¬ 
nebb kalandokba keveredik, az ember meg állandóan ke¬ 
resheti. Most sincs otthon. Mehetsz utána, és jobb, ha föl¬ 
készülsz rá, hogy ismét valami csávából kell kimentened, 
ha egyáltalán megtalálod. Mert ha a jégtörpék birodalmába 
ment, nem lesz könnyű dolgod. Arrafelé ugyanis fantasz¬ 
tikus dolgok történnek. Még szerencse, hogy a jégvilág 
lakói békés társaság, hógolyózni meg mindenki tud, nem 
igaz? 

IMPOSSIMBEL MISSION II. 

(Enterprise) Ára: 582,— Ft 

A világpremierrel egyidőben Magyarországon is kapható 
a legendás játék második részel 

A 4125-ös titkos ügynökre, Dorkra ismét szinte lehetetlen 
feladat vár: szembeszállni a bomlott agyú tudóssal, Elvin 
Atombenderrel, aki modern komputerizált fellegvárába 
húzódva a világ elpusztításán mesterűedik. 

Kapható még: C—64 lemez, kazetta 
IBM CGA, EGA 
ZX Spectrum gépekre 
Megvásárolható és megrendelhető: 

Novotrade 2C Áruház 

1136 Bp., Balzac utca 35. Tel.: 402-954 
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3—D LABIRINTUS 

A program az ismert 3-dimenziós labirintusok egyik formája. 
A megvalósítás hasonló, a feladat azonban egy kicsit össze¬ 
tettebb. A játék kezdetén egy szobákból álló labirintus leg¬ 
kisebb termében vagyunk. A szobákban különböző kincsek, 
ékszerek (a térkép ,A’ betűvel jelöli őket) vannak elhelyezve. 
Ezeket kell a játék folyamán összegyűjtenünk. Mivel a vándorlás 
során megszomjazunk, ezért időnként vizet kell magunkhoz 
venni (,V’ betűvel van jelölve a térképen.) Ha ezt nem tesszük 
meg időben, akkor először szomjasak leszünk, majd elhalás¬ 
zunk (sajnosa víz csak korlátolt mennyiségben talál ható a terem¬ 
ben.) Ha a szobában az összes kincset magunkhoz vettük, 
akkor menjünk ki a kijáraton (ez az ajtó csak abban az esetben 
nyílik ki, ha már minden kincset összegyűjtöttünk.) A következő 
szobában — melynek mérete nagyobb, mint az őt megelőzőé — 
a feladat nem változik, a továbbjutási esély mégis kisebb lesz 
a pálya mérete miatt. A játék célja minél több pont szerzése, 
valamint a labirintus legnagyobb termeinek az elérése. Ha jól 
játszottunk, akkor a játék vége után felkerülhetünk a pontszám¬ 
táblázatra is. A programban lehetőség nyílik a táblázat kimen¬ 
tésére és visszatöltésére is, de csak lemezre. Játék közben van 
egy segítségünk is; egy műszerfal, amely tartalmazza irányun¬ 
kat, a nálunk levő víz mennyiségét, a még felszedendő arany¬ 
tárgyak számát, a kincs és a víz távolságát tőlünk és azt, hogy 
hányszor vehetjük még elő zsebünkből a közben egyre jobban 
elrongyolódott térképet. 

Bár a program fő része BASIC nyelven íródott, sebessége 
mégsem hoz szégyent a 64-esre a kirajzolást segítő gépi kódú 
rutinok miatt. 

A játék a kettes PORT-ba illesztett botkormányról vezérel¬ 
hető. A program használatához sok sikert kíván a játék szerzője: 


DEBRE ATTILA 


O 0 ifpeek(4*4096)=lthenre=l:poke4*4096, 0 

1 o=rnd(76):gotol8 O 

2 v=20480 

O 3 data65,84,73,83,79,70,84,32,32,32,234, 

96 ° 


4 fori^Otol1:reada:pokev+i, a:next 


163 


5 v=v+i:fori=ltolO:fort=ltolO 

6 pokev+t, 32:nextt 
O 7 pokev+11, 00:pokev+12,00:v=v+13 

8 nexti:return 

18 poke820,0:la=0:ifre=lthenfori=0toll: 

O reada:next:goto20 

19 gosub2 

20 poke53280,0:poke53281,0:poke646,14 
030 print" [SHF CL/HOME]":z=200:gosubl680: 

poke827,10 u 

n 40 print"[SHF CL/HOME][CRS LE][CRS LE] 

U [CRS LE]":ir=l:m=z/100 O 

70 m=m*2:dima(m,m):ir$="eszak":te=m/2 


O 


O 


71 poke53265,27 

075 y=m:x=m-l:at=0:vt=0:gosub670 

80 fori=0tom:fort=0tom:a(i,t)=4:next: O 


next 

O 90 fori=2tom:a(0,i)=1:next 
95 s=226:z=200:ir=l 
_ 100 fori=0tom:a(i,0)=1:next 
^ 110 fori=0tom:a(i,m)=l:next 
120 fori=ltom-2:a(m,i)=1:next 
q 130 ifm=2thena(m,l)=5:goto440 
135 a(0,1)=5:a(m,m-1)=5 
140 fori=2tom-2step2:fort=2tom-2step2 
O 150 a(i,t)=l 

160 next:next:xl=m-l:yl=m+l 
170 fori=2tom-2step2:fort=2tom~2step2 
O 180 rn=int(rnd(l)*4)+l 

190 onrngoto200,220,240,260 
_ 200 ifa(i+1,t)=lthenl80 
U 210 a(i-l,t)=l:goto280 
220 ifa{i-1,t)=lthcnl80 
_ 230 a(i+1,t)=l:goto280 
° 240 ifa(i,t+l)=lthenl80 
250 a(i,t-1)=1:goto280 
O 260 ifa(i,t-1)=lthenl80 
270 a( i,t+1)=1:goto280 
280 next:next 
O 290 fori=ltom/2 

300 ql=int(rnd(1)*m):q2=int(rnd{1)*m) 
310 ifa(ql,q2)<>4then300 
O 320 gosub390:ifc=lthen300 

330 a(ql,q2)=2:next:c=2:vi=99.99 
n 340 fori=ltom/2 

350 ql=int(rnd(1)*m):q2=int(rnd<1)*m) 
360 ifa(ql,q2)<>4then350 
370 gosub390: ifc=lthen350 
380 a<ql, q2)=3:next:ar=m/2 
382 ifIa=lthengosub440:goto880 
O 384 goto730 

390 ifql>m-lorql<lorq2>m-lorq2<lthen430 
395 c=0:ifa(ql+l,q2)=4thenreturn 
0400 ifa(ql-l,q2)=4thenreturn 
410 ifa(ql,q2+l)=4thenreturn 
420i ifa(ql,q2-l)-4thenreturn 
O 430 c=l:return 

440 print"[CL/HOME]":poke646, 14 
^ 450 ifla=lthendl=6:gosubl640:goto470 
u 460 print"[SHF CL/HOME]" 

470 fori=0tom:fort=0tom:b=a(i,t) 
q 480 ifb=lthenprint"[CTRL 9] [CTRL 0]";: 
nextt 


O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


490 ifb=4orb=5thenprint.;:nextt 

O 500 ifb=2thenprint"v' - ;: nextt 
510 ifb=3thenprint"a";:nextt 
520 print"[CRS LE][CRS FEL]":nexti:ifla= 
O lthen620 

530 print"[CL/HOME][CRS LE][CRS JOBB] 

^ [CRS JOBB][CRS JOBB][CRS JOBB] 

° [CRS JOBB][CRS JOBB][CRS JOBB] 

[CRS JOBB][CRS JOBB][CRS JOBB] 

0 [CRS JOBB][CRS JOBB][CRS JOBB] 

[CRS JOBB][CRS JOBB][CRS JOBB] 

[CRS JOBB][CRS JOBB][CRS JOBB] 

O [CRS JOBB][CRS JOBB][CRS JOBB] 

[CRS JOBB][CRS JOBB][CRS JOBB] 

[CRS JOBB]labirintus" 

O 540 print"[CRS JOBB][CRS JOBB][CRS JOBB] 
[CRS JOBB][CRS JOBB][CRS JOBB] 

^ [CRS JOBB][CRS JOBB][CRS JOBB] 

[CRS JOBB][CRS JOBB][CRS JOBB] 

[CRS JOBB][CRS JOBB][CRS JOBB] 

0 [CRS JOBB][CRS JOBB][CRS JOBB] 

[CRS JOBB][CRS JOBB][CRS JOBB] 

[CRS JOBB][CRS JOBB][CRS JOBB]- 


O 

O 

O 

O 

O 

O 

O 

O 


O -" 

550 print"[CRS LE][CRS LE]":goto570 O 
560 print"[CRS LE][CRS JOBB][CRS JOBB] 

O [CRS JOBB][CRS JOBB][CRS JOBB] 
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o 


o 

570 
580 
O 590 
600 

^ 610 
O 620 

630 
640 

659 

660 
670 
680 
690 

O 700 
710 
720 
O 730 
740 
q 750 


[CRS JOBB][CRS JOBB][CRS JOBB] 
[CRS JOBB][CRS JOBB][CRS JOBB] 
[CRS JOBB][CRS JOBB][CRS JOBB] 
[CRS JOBB][CRS JOBB][CRS JOBB] 
[CRS JOBB][CRS JOBB][CRS JOBB] 
[CRS JOBB][CRS JOBB][CRS JOBB] 
[CRS JOBB]";:return 


O 


o 


o 


gosub560:print" 
gosub560:print" 
gosub560:print' 
gosub560:print" 
gosub560:print" 


O 


O 


760 
O 77° 

780 
O 790 

800 

O 

810 


O 


820 

830 


O 


840 


O 

850 
O 860 


O 


870 


o 871 

880 
O 890 

895 

896 
O 900 

910 
920 
O 930 
940 
950 
u 960 
970 
980 
990 
1000 
1010 

1020 
1030 
1040 

1045 

1046 
1050 
1060 


O 


h => segitseg" 
irány : ";ir$ 

’v —> víz" 

a —> arany" 

[CRS LE]térkép : t 
poke211,xl:poke214, y 1:sys58732 

remttakurzorkoordinatai 
poke646,l:poke204,0:remkurzorbe 
fort=0tom*400:next:poke646, 14 
poke207, 0:poke204, 1:return 
11=1:12=2:13=3:14=4:k=l:return O 

11=—1:12=-2:13=-3:14=-4:k=-l:return 
ifir=lthenir$="eszak ":return 
ifir=2thenir$="kelet ":return 
ifir=3thenir$=”del ":return 
ifir=4thenir$="nyugat":return 
gosub440:ti$="000000":la=l:te=m/2 
gosub670:poke53265, 11 
print"[SHF CL/HOME]tab(25)"[C= A]C 
CCCCCCCCCCC[C= S]" 
printtab(25)"B labirintus B" 
printtab< 25)"[C= Z]CCCCCCCCCCCC 
[C= X]" 

po=0:vl=50:y=m:x=m-l:pt=0:at=0:vt=0 
printtab(67)"viz"tab(104)"[C= A]CCCC 
C[C- S] " 

printtab(24)"B[C= J] [C= L]B'tab(6 

4) "[C= Z]CCCCC[C= X]" 
print"[CRS LE][CRS LE]"tab(28)"ponts 
zam" 

printtab(28)“[C= A]CCCCCCC[C= S]" 
printtab{28)"[CTRL 9][C= K][CTRL 0] 

[C= K]"tab(68)"[C= Z]CCCCCCC 
[C= X]" 

print"[CL/HOME]"tab(193)"arany"tab(1 
13)"[C= A]CCCC[C= S]" 
printtab(33)"B[C= J] [C= L]B"tab(73 
)"[C= Z]CCCC[C= X]" 
print"[CRS LE][CRS LE][CRS LE] 

[CRS LE][CRS LE][CRS LE][CRS LE]" 
tab(24)"arany távolsága" 
print"[CRS LE][CRS LE][CRS LE]"tab(2 

5) "víz távolsága" 
print"[CRS LE][CRS LE]irány: 
térkép" 
rém********* 

poke646,1:poke53265, 11:vi=vi-3 
ify=Oandar=Oandir=lthenl585 
gosub1610:at=0:vt=0 
ifir=2orir=4thenll40 
ifir=3then970 
ify=3thenl020 
ify=2thenl050 
ify=lthenl080 

ify=0andar>0theny=l:gotol080 
goto1010 
ify=m-3thenl020 
ify=m-2thenl050 
ify=m-lthenl080 
ify=mtheny=m-l:gotol080 
ifa(y-14,x)=lora(y-14,x)=5thendl=ll 
:gosubl640 

ifa(y-13,x-k)>lthendl=9:gosubl640 
ifa(y-13, x+k)>lthendl = 10:gosubl640 
ifaiy-13,x)=lora(y-13,x)=5thendl=4: 
gosubl640 

ifa(y-13,x)=2thenvt=3 
ifa(y-13,x)=3thenat=3 
ifaiy-12,x-k)>lthendl=2:gosubl640 
ifaiy-12,x+k)>lthendl=3:gosub1640 


O 


O 


O 


O 


O 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 1070 

ifa{y-12,x)=lora(y-12,x)=5thendl=12 


:gosubl640 

O 

1075 

ifa(y-12,x)=2thenvt=2 


O 1076 
1080 

ifa(y-12,x)=3thenat=2 


ifa(y-l1,x-k)>lthendl=7:gosub1640 

O 

1090 

ifa(y-l1,x+k)>lthendl=8:gosub1640 


o uoo 

ifa(y,x-k)>lthendl=0:gosub1640 

O 

1110 

ifa(y,x+k)>lthendl=l:gosub1640 

1120 

ifa(y-ll,x)=lora(y-ll,x)=5thendl=5: 


O 

gosubl640 

o 

1125 

ifa(y-ll,x)=2thenvt=l 

„ U26 

ifa(y-l1,x)=3thenat=l 


u 1127 

ifa(y,x)=2thena(y,x)=4:vt=0:pt=pt+ 

o 

q 1128 

int(vi):vi=99.9 

ifa(y,x)=3thena(y,x)=4:at=0:pt=pt+z 

:ar=ar-l 

o 

1130 

gotol322 


O 1140 

ifir=2thenl190 


1150 

ifx=3thenl220 

0 

1160 

ifx=2thenl250 


O 1170 

ifx=lthenl280 

0 

1180 

gotol210 

1 190 

ifx=m-3thenl220 


u 1200 

ifx=m-2thenl250 

o 

1205 

ifx=m-lthenl280 

O 1210 

ifa(y,x-14)=lora(y,x-14)=5thendl=ll 


:gosubl640 

o 

1220 

ifa(y+k,x-13)>lthendl=9:gosubl640 


O 1230 

ifa(y-k,x-13)>lthendl=10:gosub1640 

o 

1240 

ifa(y,x-13)=lora(y,x-13)=5thendl=4: 

O 1245 

gosubl640 

ifa(y,x-13)=2thenvt=3 

0 

1246 

ifa(y,x-13)=3thenat=3 

1250 

ifa(y+k,x-12)>lthendl=2:gosubl640 


° 1260 

ifa(y-k,x-12)>lthendl=3:gosubl640 

o 

1270 

ifa(y,x-12)=lora(y,x-12)=5thend1=12 

° 1275 

:gosubl640 

ifa(y,x-12)=2thenvt=2 

o 

1276 

ifa(y, x-12)=3thenat=2 


O 1280 

ifaiy+k,x-11)>lthendl=7:gosub1640 

o 

1290 

ifa(y-k,x-11)>lthendl=8 : gosubl640 

1300 

ifa(y+k,x)>lthendl=0:gosubl640 


O 1310 

ifa(y-k,x) > lthendl=l:gosubl640 

o 

1315 

ifa(y,x-11)=lora(y,x-11)=5thendl=5 : 

O 1316 

gosubl640 

ifa(y,x-ll)=2thenvt=l 

o 

1317 

ifa(y,x-11 ) =3thenat=l 

Q 1318 

ifa(y,x)=3thena(y,x)=4 : at=0:pt=pt+z 


: ar=ar-l 

o 

1320 

ifa(y, x)=2thena(y, x)=4:vt=0:pt=pt+ 


o 

int(vi) : vi=99.9 

o 

1321 

gotol340 

1322 

ify=landx=landir=lthenl324 


O 1323 

g'otol325 

o 

1324 

print" [ CL/HOME] [ CRS LE][CRS LE] 

O 1325 

[CRS LE][CRS LE]"tab(207)"kijarat" 
ify=m-1andx=m-1andir=3then1327 

o 

1326 

gotol340 


1327 

print"[CL/HOME][CRS LE][CRS LE] 


o 

[CRS LE][CRS LE]"tab(207)"bejarat" 

o 

1340 

poke53265.27 


„ 1360 

print"[CL/HOME][CRS LE][CRS LE]" 


u 

tab(235 ) ar 

o 

1370 

print" [CRS LE] [CRS LE] [CRS I,E] 


o 

[CRS LE][CRS LE]"tab(29)pt 

o 

1380 

print"[CRS LE][CRS LE][CRS LE] 

O 1390 

[CRS LE]"tab(30)at 

print"[CRS LE][CRS LE][CRS LE]"tab( 

o 

1392 

30) vt 

printtab(6)ir$"[CRS JOBB][CRS JOBB] 

O 

[CRS JOBB][CRS JOBB][CRS JOBB] 

o 

° 1400 

[CRS JOBB][CRS JOBB][CRS JOBB] 

[CRS JOBB]"te 

getf$:iff$<>"t"thenl430 

o 

1410 

te=te-l:ifte<0thente=0:gotol430 


n 1420 

gosub440:goto890 

o 

1430 

al=peek(56320) 


c< 
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o 1440 

^ 1450 
1460 
O 1462 

1465 

O 

1467 
1470 
O 1480 

0 !481 

1482 

° 1483 

O 1484 
1490 
1500 
O 1510 
1520 

o 1530 

u 1540 
1550 
O 1560 
1570 
1580 
O 1585 

1586 

1587 

1588 

5 1589 
1590 

5 1591 


O 1592 
1610 
1620 
1630 
1640 


O 


O 


1650 


1660 
1670 
O 1680 
1690 
1700 
O 

1705 


O 


1850 

1860 


O 1870 


ifal=126thenl480 q 

ifal=123thenl490 
ifal=119thenl540 

ifvi<10thens=227 : print" [CL/HOME] Q 
[CRS LE][CRS LE]"tab(s)" " 
print"[CL/HOME][CRS LE][CRS LE]" 
tab(s)int(vi) O 

vi=vi-.5:ifvi<.5then5000 
gotol400 _ 

ifir=landa(y-l,x)>ltheny=y-l:yl=yl- u 
1:goto880 

ifir=2anda(y, x+1)>lthenx=x+l:xl=xl +q 
1:goto880 

ifir=3anda(y+1,x)>ltheny=y+1:yl=yl+ 
l:goto880 O 

if ir=4anda(y, x-1) > lthenx=x-l '• xl=xl- 
1:goto880 

gotol400 O 

ify=mandir<>3thenl430 

ir=ir-l:ifir=0thenir=4 0 

gosub690:ifir=lorir=4thengosub670 

ifir=2orir=3thengosub680 

goto880 q 

ify=mandir<>3thenl430 

ir=ir+l:ifir=5thenir=l 

gosub690:ifir=lorir=4thengosub670 O 

ifir=2orir=3thengosub680 

goto880 

dl=6:gosubl640:m-m/2 + l:ifm=llthenm= O 
10 


pl=int(pt/256):p2=pt~pl*256 
poke821,m:poke822,pl:poke823,p2: clr 
m=peek(821):pt=peek{822)*256+peek(8 
23):la=l:g=l q 

fori=0toll:reada:next:gosubl680 
print"[CL/HOME][CRS LE][CRS LE]" 
tab(227)" " O 

print"[CRS LE][CRS LE][CRS LE] 

[CRS LE][CRS LE][CRS LE][CRS LE] 

[CRS LE][CRS LE][CRS LE][CRS LE] O 
[CRS LE][CRS LE][CRS LE][CRS LE]" 
tab(20)" " 

goto70 ^ 

poke49176,0:poke49186,0:poke49193,0 
poke49177,196:poke49187,196 q 

poke49194,196:sys49152:return 
poke49176,po(dl):poke49186,po(dl) 
poke49193,po(dl) O 

poke49177,197:poke49187, 197 
poke49194,197:sys49152:return 
dimpo(20):fori=0tol2:reada O 

po(i)=a:next:ifg=lthenreturn 
ifpeek(820)=16thenprint" 

[SHF CL/HOME]":gotol790 ü 

ifre=lthenprint"[SHF CL/HOME]":goto 


1790 

printtab(132)"egy kis türelmet !" 
poke820,16 

data9,19,35,60,88,125,132,139,164 
datal92,205,221, 252 
fori=0tol75:reada 
poke49152+i,a:next 
fori=0to580:reada 


O 

O 

o 


poke50176+i,a:next:print" 

[SHF CL/HOME]" O 

poke53265,11:gosubl610 

dl=0:gosub1640:d1=1:gosubl640 

dl=2:gosubl640:dl=3:gosubl640 O 

dl=7:gosubl640:dl=8:gosubl640 

dl=ll:gosubl640:poke53265,27 

print"[CL/HOME]";tab(25)"[C= A]CCCC ° 

CCCCCCCC[C= S]" 

printtab(25)"B labirintus B" ^ 

printtab(25)"[C= Z]CCCCCCCCCCCC 
[C= X]" 

print"[CRS LE][CRS LE][CRS LE] o 

[CRS LE][CRS LE][CRS LE][CRS LE] 


[CRS LE]"; 

^ 1880 printtab(25)"nyomj meg egy" 

1890 printtab(106)"billentyűt !" 
q 1900 geta$:ifa$=""thenl900 
1910 return 

1920 datal69,0,141,57, 192, 141,63, 192 
O 1930 datal41,191,2, 169, 4, 141, 58, 192 
1940 datal69,216,141,64,192,162,0,189 
1950 data251,197,208,1,96,141,188, 2 
O 1960 data232,189,251,197,141,189,2,232 
1970 datal89,251,197,141,190,2,173,188 
1980 data2,201,255,208, 3,76,65, 192 
° 1990 datal41,60,6,173, 189, 2, 141, 60 
2000 data218,206,190,2,240, 62, 56, 173 
n 2010 data57,192,105, 39, 144, 6, 238,58 
^ 2020 datal92,238,64,192,141,57,192, 141 
2030 data63,192,173,58, 192, 201, 7,208 
O 2040 data32,56,173,57,192,201,111,144 
2050 data24,169,4,141,58,192,169,216 
2060 datal41,64,192,169,0,109,191,2 
O 2070 datal41,57,192,141,63,192,238,191 
2080 data2,76,46,192, 173, 24, 192, 56 
2090 datal05, 2, 144,21,141,24,192,141 
° 2100 data34,192,141,41,192,238,25,192 
2110 data238,35,192,238,42,192,76,21 
n 2120 datal92,141,24,192,141,34,192,141 
2130 data41,192,76,21,192,20,0,15 
2140 rém 

O 2150 data32,0,1, 223,6, 2, 160, 6,21, 105 
2160 data6,2,32,0,2,223,6,2,160,6 
2170 datal9,105,6,2,32,0,4,223,6,2 
O 2180 datal60,6,17,105,6,2,32,0,6,223 
2190 data6,2,160,6,15,105,6,2,32,0 
2200 data8, 223,6,2,160,6,13,105,6,2 
ü 2210 data32,0,10,223,6,2,160,6,11,105 
2220 data6,2,32,0,12, 223,6, 2, 160,6 
„ 2230 data9,105,6,2,32,0,14,223,6,2 
U 2240 datal60,6,7,105,6,2,32,0,16,223 
2250 data6,2,160,6,5,105,6,2,32,0 
O 2260 datal8,223,6,2,160,6,3,105,6,2 
2270 data32,0,20,223,6, 2,160,6,1,105 
2280 data6,2,32,0,21,233,6,2,160,6 
O 2290 datal,95,6,2,32,0,20,233,6,2 
2300 datal60,6,3,95,6,2,32,0,18,233 
2310 data6,2,160,6,5,95,6,2,32,0 
O 2320 datal6,233,6,2,160,6,7,95,6,2 
2330 data32,0,14,233,6,2,160,6,9,95 
n 2340 data6,2,32,0,12,233,6,2,160,6 
u 2350 datal1,95,6,2,32,0,10,233,6,2 
2360 datal60,6,13,95,6,2,32,0,8,233 
O 2370 dataö,2,160,6,15,95,6,2,32,0 
2380 data6,233,6,2,160,6,17,95,6,2 
2390 data32,0,4,233,6,2,160,6,19,95 
O 2400 dataö, 2, 32,0,2,233,6,2,160,6 
2410 data21,95,6,1,0,32,0,2,160,1 
2420 data21,32,0,1,0,255,0,255,255,0 
O 2430 data209,32,0,2,160,1,21,32,0,1 
2440 dataO,255,0,139,32,0,3,160,1,7 
2450 data32,1,3,255,0,14,32,0,2,160 
O 2460 datal,7,32,1,2,0,255,0,255,255 
2470 dataO,62,32,0,2,160,1,7,32,1 
2480 data2,255,0,14,32,0,3,160,1,7 
°2490 data32,1,3,0,255,0,185,160,1,6 
2500 data255,0,18,160,1,6,255,0,18,160 
0 2510 datal,6,255,0,18,160,1,6,255,0 
2520 datal8,160,1,6,255,0,18,160,1,6 
2530 dataO,160,1,255,160,1,230,0,32,1 
O 2540 data255,32,1,230,0,255,0, 47,32, 0 
2550 data4,160,1,13,32,0,11, 160,1,13 
2560 data32,0,11,160,1,13,32,0,2,0 
O 2570 data255,0,255,255,0,125,32,0,2,160 
2580 datal,13,32,0,11,160,1,13,32,0 
2590 datal1,160,1,13,32,0,3,0,255,0 
O2600 datal85,32,0,2,160,1,5,32,0,2 
2610 dataO,255,0,255,255,0,41,32,0,2 
n 2620 datal60, 1, 5, 32,0, 2,0, 255,0, 207 
U 2630 data32, 0, 2, 160, 1,5,32,0, 19, 160 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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O 2640 
2650 
2660 
O 2670 
2680 
2690 
° 2700 
2710 
2720 


O 


5000 


O 5005 
5010 
5015 
O 5020 

5025 
° 5030 


O 


5035 


5040 
O 5045 

5050 

O 

5055 

° 5057 

n 5060 
U 5062 
5063 
q 5065 


O 


O 


O 


O 


5070 

i 

5075 

5080 

5082 

5085 

5086 

5087 

5090 


datal,5,32,0,19,160,1,5,32,0 O 

datal9, 160, 1,5,32,0,2,0,255,0 
datal16, 160,1, 13,32,0,11,160,1,13 
data32,0,11,160,1,13,32,0,11,160 O 
datal,13,32,0, 11, 160, 1, 13, 32,0 
datal1, 160,1, 13, 32, 0, 11, 160, 1, 13 n 
data32,0, 11, 160, 1, 13,32,0,11, 160 u 
datal,13,32,0, 11, 160, 1, 13, 32, 0 
datal1,160,1,13,32,0,11,160,1,12,0 q 
poke646,14:print"[SHF CL/HOME]"tab( 

12)"pontszamtablazat" 

printtab( 11) “-" O 

print"[CRS LE]":dimnev$(20):v=20480 
dimne{20):fori=lto9 

printi - ,'. >>> <<< . > O 

< " 

next „ 

prinf'10 . >>> <<< . ^ 

> <" 

print"[CRS LE]nev:>>> . << q 

< . > <" 

fori=ltopeek(827):fort=0to9 
e$=chr$(peek<v+t)):ne$(i)=ne$(i)+e$ O 
:nextt:v=v+10 

ne(i)=peek(v)*256+peek(v+1):v=v+3: 
nexti O 

print"[CRS FEL][CRS FEL]":h=l:ne(11 

)= p t Q 

printtab(30)ne(11):print"[CRS FEL] ^ 
[CRS FEL]" 

geta$: ifa$=‘"'then5060 q 

ifa$=chr$(13)then5080 
ifa$=chr$(20)then5060 

ne$(11)=ne$(11)+a$:printtab(8)ne$(1 O 

1) 

print"[CRS FEL][CRS FEL]":h=h+l:ifh 
=llthen5080 O 

goto5060 

ifne$(11)=""thenprint"[CRS LE]";: „ 

goto5055 u 

h=0:fori=ltolO 

ifne( i)>=ne(i + 1)thennext q 

ifi=llthen5095 

c=ne(i):e$=ne$(i):ne(i)=ne(i+1):ne$ 

(i)=ne$(i+1) O 

ne{i+1)=c:ne$(i+1)=c$:h=l:next 


O 5095 
6000 


O 


Q 6005 
6010 
6020 
6025 
6030 
O 

6032 

6035 

O 

6040 
6050 
O 6055 


ifh=lthen5080 

print"[CL/HOME][CRS LE][CRS LE] 

[CRS LE]" 

fori = ltolO:printtab< 8)ne$(i), , ne<i) 

next 

v=20479 

fori=ltol0:fort=ltol0 
e$=mid$(ne${i),t,1):ife$=""thene$=" 


O 


O 


O 


O 


6060 


[CTRL 0] — >° 
"tab(5)"disk Q 


6065 

O 

6070 
O 6075 
6080 
6090 


O 


6100 


o 


6150 
q 6200 

6210 

O 

06215 

O, 


'6220 


O 


O 


6225 

6230 

I 

6300 


O 


pokev+t,asc(e$):nextt 

v=v+ll:nl=int(ne(i)/256):n2=ne(i)-n^ 
1*256 O 

pokev,ni:pokev+1,n2:v=v+2:nexti 
print"[CRS LE][CRS LE] 
printtab(6)"[CTRL 9] f 
a játék folytatása" 
print"[CRS LE][CRS LE] 
parancsok a tablazatra 
print"[CRS LE] [CTRL 9] s [CTRL 0] 

— > mentes [CTRL 9] 1 O 

[CTRL 0] — > töltés " 
geta$:ifa$=""then6070 
ifa$="f"then6150 O 

ifa$="s"then6200 
ifa$=" 1 "t.hen6300 
goto6070 
clr: re=l:gotol 

pokel6385,peek(45):pokel6386, peek( 4Q 
6):poke4*4096,1 

print"[SHF CL/HOME][CTRL 1][CRS LE] 
[CRS L.E] [CRS LE] [CRS LE]poke43,0: poQ 
ke44,80:poke45,0:poke46,81[CRS LE] 
[CRS LE]" 

print"save"chr$(34)pont 
lab“chr$(34)", 8[CRS LE][CRS LE] 

[CRS LE]" q 

print"[CRS LE][CRS LE][CRS LE]poke4 
3,1:poke44,8:poke45, peek(16385):pok 
e46,peek(16386):clr:gOO" Q 

print"[CL/HOME]" 

fori=0to7:poke631+i,13:next:pokel98 
,7:end O 

clr:poke4*4096,1:print"TCRS FEL] 

[CRS FEL][CTRL 1]":load"pont 
láb",8,1 


O 



AKCIÓ! 






A FLOPPY 
ÖNNEK 
ING YEN 
VAN! 


8 db program VC20-ra 

220,— 

— Megrendelhető 

12 db program Plus/4-re 

320 — 

utánvéttel! 

16 db program C128-ra 

420,- 

— Megvásárolható 

20 db program C16-ra 

520,- 

az egyesület 

24 db program C64-re 

620,- 

irodájában kedden 

32 db program C64-re 

820 — 

és csütörtökön! 


o 
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Vadnai Sz.: 

PLUS/4-es 

programozói 

zsebkönyv 

Az alapfogalmak tisztázása után precíz 
ismertetést kapunk a három beépített al¬ 
kalmazói program lehetőségeiről. A prog¬ 
ramok teljes parancskészletét logikai sor¬ 
rendben ismerteti. A könyv használható¬ 
ságát fokozza a végén lévő részletes tárgy¬ 
mutató, valamint a kapcsos, jól lapozható 
kötésforma. 



VADNAI SZABOLCS 


Commodore 
PLUS/4 — 

A beépített 
programok kezelése 

(Commodore) 

A gép funkcióbillentyűivel négy különböző 
alkalmazói programot hívhatunk. A könyv 
megismerteti olvasóit e programok fel¬ 
használási lehetőségeivel, kezelésével. A 
megértést számos m intapélda bemutatása 
segíti. 


KÖNYVEK .7 

Babán G— Masa I.: 

Gépi kódú 
programozás 
kezdőknek 
és haladóknak 

(C 16 és PLUS/4 számítógépre 

A könyv első része tulajdonképpen tan¬ 
könyv. Ebből a teljesen kezdők megismer¬ 
kedhetnek az alapokkal. 

A második rész alapos ismereteket nyújt 
a gépről. Részletesen bemutatják a szer¬ 
zők az operációs rendszer lehetőségeit, 
valamint a BASIC interpreter működését. 
Külön fejezet foglalkozik a perifériák keze¬ 
lésével. 



GÉPI KÓDÚ 


PROGRAfTlOZfc 


KÉZDŐKflÉK 


ÉS HRIRDÓKÍIRK 



A PLUS/4-es gép tulajdonosainak nélkü¬ 
lözhetetlen segédkönyve. A legalapvetőbb 
ismeretek megszerzéséhez nyújt segít¬ 
séget. Megtaláljuk benne a gép alapvető 
műszaki paramétereit is. A használható¬ 
ságot növeli az Ismerettár című fejezet, 
amelyben ábécérendben könnyen vissza¬ 
kereshetők a leglényegesebb tudnivalók. 


Ara: 99,— Ft 
Megjelent: 1986 
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PROGRAMOK 


Vigyázat, vírus! 


A számítógépes vírusok a számítástechnika világában idő¬ 
közben komoly fenyegetést jelentenek. Egy jóindulatú példány 
mutatja be, milyen fogásokat alkalmaznak ezek készítői. 

Ha valaki vírusprogramotírvagy nyilvánosságra hoz, tisztában 
kell lennie azzal, mi is történhet. Égy olyan vírus, amely bár¬ 
milyen programokat képes „megfertőzni", képes arra is, hogy 
drága pénzen vett szoftvereket tegyen tönkre akkor is, ha nem 
is ez volt a készítő szándéka. Egy ártalmatlan vírusba kel lemetlen 
kortársaink olyan rutinokat (pl. lemezformatálás) „olthatnak” 
be, amire az adott vírus mindjárt rosszindulatúvá válik. Mind¬ 
ezen szempontok alapján a „Mini Vírus” programunk (lásd 
a programlistát) elfogadható. A programlista egy „fertőzött” 
BASIC programot rejt. Az abban rejlő vírus képes BASIC 
programokat megfertőzni, és az a SAVÉ utasítással „szapo¬ 
rodik". Ezen kívül ezt a vírust könnyen el lehet távolítani, és 
a fertőzés ténye is könnyen megállapítható. 

Egy BASIC programot nem is olyan könnyű vírusprogrammal 
megfertőzni. A számítógépünk tudvalevőleg mindig gépi kód 
bán dolgozik, egy BASIC program nem más, mint egy halom 
adat, egy másik program számára. Ez a másik program a gép 
ROM-jában található BASIC interpreter. Ha megtekinthetnénk, 
hol tartózkodik a mikroprocesszor belső, úgynevezett program¬ 
számlálója a BASIC program futtatása alatt, akkor azt vagy 
a ROM-ban, vagy a nulláslap egy kis rutinjában találnánk. 
A ROM-ot azonban (szerencsére) nem lehet megfertőzni. A ví¬ 
rust azonban, amely maga is egy gépi kódú program, valahogy 
fel kell vinni. A mi esetünkben csakis a BASIC SYS utasítása 
jöhet szóba. 
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A SYS (a USR mellett) az egyetlen lehetőség arra, hogy el¬ 
hagyjuk a BASIC interpretert. A BASIC program megfertőzé¬ 
sekor tehát be kell a programsorok közé csempészni egy SYS 
utasítást, amely azután felhívja a vírusunkat. Ezt a SYS-t azon¬ 
ban valóban végre kell hajtatni, azaz nem rakhatjuk el valami 
ritkán használt programba, vagy DATA sorok közé. Mivel szinte 
minden BASIC programot RUN-nal kell elindítani, megoldás 
a SYS utasítást a program legeslegelső utasításává tenni. 

Természetesen nemcsak a SYS parancsot, de magát a vírus- 
programot is el kell raknunk valahová. Annak nem szabad a 
változókat, sem egy esetleges gépi kódú segédrutint megza¬ 
varnia. A legegyszerűbb, ha azt is az első BASIC sorba írjuk. 
Hogy azzal az interpreter ne törődjön, egy RÉM utasítást kell 
eléje írni. 

Természetesen a felhasználó igencsak csodálkozna, ha az 
általa írt programban egyszerre olyan sorokat találna, amelyeket 
nem írt meg. Éppen ezért a SYS utasítást és a vírust rejtő sorokat 
LIST ellen védeni kell. Ez egy második BASIC sorral és szinte¬ 
tikus vezérlő jelekkel történik. 

A vírus tehát két BASIC sorban áll (0 és 1), amelyek védve 
vannak. A tudatlan felhasználó sem a LISTázásnál, sem a prog¬ 
ram futása közben nem veszi észre azt. Mihelyt a programot egy 
NEW-val töröltük, vagy egy másik programot behívunk, a vírus 
maga is eltűnik a BASIC programmal együtt. A szaporodás 
veszélye ezzel jelentősen lecsökken. 

A vírus első akciója az indítás után, hogy a BASIC terület 
kezdete címet magasabb értékre állítja, méghozzá pontosan 
a harmadik BASIC sor elejére. Ez maga az „eredeti" program 
első sora, így tehát minden rendben futhat tovább. Most azon¬ 
ban a vírus védve lesz NEW és LOAD ellen. Most azonban 
a vírus már nem tartozik a programhoz, így azt SAVÉ esetén 
nem mentenénk ki adathordozóra. Enélkül pedig nincs sza¬ 
porodás. 

Éppen ezért a vírus egy SAVÉ utasításnál visszaállítja a vek¬ 
torokat az eredeti értékekre. Az ismételt betöltéskor tehát ott 
lesz a vírus a BASIC programunk első két sorában. Ez akkor is 
így lesz, ha közben egy másik programot adtunk vagy hív¬ 
tunk be. 

A C64-es tárolójában van egy vektor, amelyre a gép minden 
SAVÉ esetében hivatkozik. A vírus második akciója, hogy ezt 
a vektort önmaga egy részére irányítja. A vírusnak ezt a rutinját 
tehát minden SAVÉ esetében végrehajtatjuk. Itt állítjuk vissza 
az eredeti BASIC start címeket, majd a normál SAVÉ rutinra 
ugrunk vissza. így a vírus az adott programmal együtt adat¬ 
hordozóra kerül. 

Ebben a rutinban természetesen előbb ellenőrizni kell, hogy 
a tárolóban álló program nem fertőzött-e már. Ebben az esetben 


Q 1 rém ******************************** 

2 rém" * C= Uö.aag Ssz.:l6é * O 

3 rém" * MINI VÍRUS * 


0 4 rém" * Program: A 64 ’er nyomán * 

5 rém ******************************** 


O 

„ 6 rém" * Betöltés előtt: POKE 43,1 * 

U 7 rém" * POKE 44,12: POKE 12*256,0 * 


c o 

8 rém" * Futtatás után: POKE 43,1 * 

O 9 rém" * POKE 44,8: POKE 45,227 * 

10 rém"* POKE 46,10 & SAVE'MVIRUS',8* 


11 rém ******************************** 

0 12 print chr$( 147 ) "data beolvasás es ellenőrzés ... 

" : :j=02049:ve=02786:p=d 


13 fór b=0 to 7:read a$ 


o 


14 l=asc(mid$(a$,2,l)) 

° 15 h=asc(mid$(a$,l,l)) n 

16 1=1-48:if 1>9 then 1=1-7 
q 17 h=h-48:if h>9 then h=h-7 

18 print"SE****MMI"p; :p=p+l O 

19 if h>15 or 1>15 then 21 

0 20 a=h*16+l:poke j+b,a:t=t+a:next b:read a:if a=t then 22 

21 print:print"data hiba ... sor': "peek(64)*258+peek(63) :end O 

22 t=0:j=d+8:if d<ve then 13 

^23 print"£*mkesz" :end q 

24 data bd,08,00,00,00,3a,3a,3a,0371 


o 
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25 

data 

3a,9e,32,30,36,35,3a,8f,0622 

O 

26 

data 

a9,c9,85,2b,a9,08,85,2c,0900 



27 

data 

a9,30,8d,32,03,a9,08,8d,0729 

O 

o 

28 

data 

33,03,a2,01,a9,81,9d,ff,0927 


29 

data 

02,a9,08,8d,01,03,60,ad,0593 


o 

30 

data 

c9,08,c9,85,f0,47,ad,cd,1232 

o 

31 

data 

08,c9,9e,f0,40,a5,b9,29,1062 


32 

data 

0f,d0,3a,a9,01,85,cl,a9,0946 


0 

33 

data 

08,85,c2,a0,04,b9,af,08,0867 

o 

34 

data 

c9,20,d0,02,a9,30,aa,e8,1062 


35 

data 

e0,3a,d0,0a,a9,30,99,af,1045 

o 

o 

36 

data 

08,88,10,e9,c8,aa,8a,99,1054 


37 

data 

af,08,ce,a2,08,d0,0e,ad,0954 


o 

38 

data 

a3,08,8d,a2,08,ee,13,03,0742 


39 

data 

a9,07,8d,al,08,4c,ed,f5,1044 



40 

data 

Ba,48,20,11,08,ad,13,03,0462 


o 

41 

data 

f0,11,ce,al,08,d0,0c,a9,1021 

o 

42 

data 

02,8d,al,08,a9,a4,a0,08,0813 



43 

data 

20,le,ab,68,aa,4c,8b,e3,0949 


o 

44 

data 

03,03,03,0d,4d,49,4e,49,0323 

o 


45 

data 

56,49,52,55,53,3a,20,20,0531 


o 

46 

data 

20,20,31,20,43,4f,50,49,0444 

o 

47 

data 

45,53,21,00,c9,08,01,00,0395 


48 

data 

8f,22,14,8d,91,91,91,00,0773 


o 

49 

data 

cf,08,64,00,8f,00,d5,08,0679 

o 

50 

data 

65,00,8f,00,f4,08,66,00,0598 



51 

data 

8f,20,20,20,54,4f,52,5a,0574 


Q 

52 

data 

53,54,45,4e,59,45,5a,4f,0641 

o 


53 

data 

4b,52,45,20,42,4f,4e,54,0565 


o 

54 

data 

41,53,00,fa,08,67,00,8f,0652 


55 

data 

00,00,09,68,00,8f,00,0a,0266 



56 

data 

09,6e,00,99,22,93,22,3b,0546 


0 

57 

data 

00,28,09,78,00,99,3a,99,0533 

o 

58 

data 

22,20,41,20,46,45,4c,42,0444 


59 

data 

4f,4e,54,41,4e,44,4f,20,0563 


o 

60 

data 

53,5a,41,4d,22,3b,00,30,0456 

ü 


61 

data 

09,82,00,85,20,5a,00,49,0467 


o 

62 

data 

09,8c,00,99,22,20,54,4f,0531 

o 

63 

data 

52,5a,53,54,45,4e,59,45,0644 


64 

data 

5a,4f,4b,3a,20,22,3b,00,0427 


o 

65 

data 

51,09,96,00,51,b2i5a,00,0589 

o 

66 

data 

69,09,a0,00,54,b2,32,3a,0644 



67 

data 

50,b2,30,3a,8d,20,35,30,0638 

o 

o 

68 

data 

30,3a,8d,20,36,30,30,00,0429 


69 

data 

81,09,aa,00,54,b2,33,3a,0679 


r> 

70 

data 

50 y b2 9 30 y 3a y 0d ,20 ,35 >30 y 0630 

o 


71 

data 

30,3a,8d,20,36,30,30,00,0429 


72 

data 

98,09,b4,00,8b,20,54,bl,0773 


o 

73 

data 

ba,28,51,29,aa,31,20,a7,0766 

o 

74 

data 

20,89,20,32,30,30,00,b8,0531 



75 

data 

09,be,00,54,b2,54,aa,32,0765 

o 

o 

76 

data 

3a,50,b2,30,3a,8d,20,35,0648 


77 

data 

30,30,3a,8d,20,36,30,30,0477 



78 

data 

3a, 89,20,31,38,30,00, d2,0590 

o 


79 

data 

09,c8,00,54,b2,51,3a,50,0690 


80 

data 

b2,31,3a,8b,20,51,bl,31,0763 


o 

81 

data 

20,a7,20,8d,20,36,30,30,0554 

o 

82 

data 

00,ef,09,d2,00,8b,20,51,0710 


83 

data 

b2,5a,20,a7,20,99,a3,32,0865 


o 

84 

data 

31,29,3b,22,50,52,49,4d,0495 

o 


85 

data 

53,5a,41,4d,22,00,f9,09,0607 


o 

86 

data 

de,00,89,20,31,32,30,00,0536 


87 

data 

ff,09,f4,01,8f,00,05,0a,0667 

vJ 


88 

data 

f5,01,8f,00,22,0a,f6,01,0680 


o 

89 

data 

8f,20,20,20,54,45,4e,59,0559 

o 

90 

data 

45,5a,4f,4b,20,45,4c,4c,0566 



91 

data 

45,4e,4f,52,5a,45,53,45,0619 

o 

o 

92 

data 

00,28,0a,f7,01,8f,00,2e,0487 


93 

data 

0a,f8,01,8f,00,54,0a,fe,0750 



94 

data 

01,8b,20,54,ac,b5,28,51,0730 

r\ 


95 

data 

ad,54,29,b2,51,20,a7,3a,0814 



96 

data 

20,51,b2,51,ad,54,3a,50,0767 


o 

97 

data 

b2,50,aa,31,3a,89,20,35,0757 

o 

98 

data 

31,30,00,5a,0a,08,02,8e,0349 



99 data 00,60,0a,58,02,8f,00,66,0441 

100 data 0a,59,02,8f,00,84,0a,5a,0476 

101 data 02,8f,20,20,20,54,4f,52,0486 

102 data 5a,53,54,45,4e,59,45,5a,0652 

103 data 4f,4b,20,4b,49,49,52,41,0554 

104 data 53,41,00,8a,0a,5b,02,8f,0532 

105 data 00,90,0a,5c,02,8f,00,a2,0553 

106 data 0a,62,02,8b,20,50,b2,30,0587 

107 data 20,a7,20,89,20,36,34,30,0554 

108 data 00,d5,0a,6c,02,99,a3,32,0699 

109 data 31,29,3b,c9,28,22,20,20,0488 

110 data 20,20,20,20,20,20,20,20,0256 

111 data 22,aa,c4,28,54,29,2c,38,0665 

112 data 29,3b,3a,8b,20,50,bl,31,0635 

113 data 20,a7,20,99,22,20,5e,22,0578 

114 data 3b,50,3b,00,db,0a,76,02,0547 

115 data 99,00,el,0a,80,02,8e,00,0660 

116 data 00,00,00,00,00,00,00,00,0000 


O 


o 


o 


o 


o 


o 


ready. 


nem szabad újrafertőzni. A programhoz ekkor nem nyúlunk. 
Ezenkívül azt is ellenőrizni kell, hogy BASIC programról van-e 
szó. A vírus ezt akkor veszi adottnak, ha a tároláskor másodlagos 
cím megadása nélkül (SAVÉ "név",8) mentjük ki a programot. 
Ha másodlagos címmel SAVE-elünk (SAVÉ "név",8,1), akkor 
szintén nem nyúlunk a programhoz. 

A Mini Vírus egy harmadik vizsgálatot is végez. Nagy számban 
vannak ugyanis olyan gépi kódú programok, amelyeket normál 
BASIC programként kell betölteni, s amelyek SYS utasítással 
kezdődnek. Az ilyen programokat a vírus nagy valószínűséggel 
tönkretenné, mert a sorbeszúrások miatt a címek nem stim¬ 
melnek többet. Hogy kárt ne okozzunk, ezért azokat a progra¬ 
mokat sem fertőzzük meg, amelyek egy SYS utasítással kez¬ 
dődnek. Ez mindjárt védekezési módot is kínál a vírussal szem¬ 
ben. Ha ugyanis a BASIC program első utasítása egy „ártal¬ 
matlan" SYS parancs, fertőzés nem történik. Ilyen utasítás 
lehet például a SYS 138 (Assembler programozók tudhatják, 
ezen a címen áll a CHR-6ET rutin utolsó utasítása, egy RTS). 

A SAVÉ vektort azonban a <RUNT/STOP> <RESTORE> visz- 
szaállítja a normál értékekre. Ezzel pedig a vírust hatástalanít¬ 
hatnánk. 

Vannak azonban más vektorok is. Ezek közül egyet minden 
egyes READY jelzés kiadásakor használunk. Ez az úgynevezett 
melegindítás vektor. Ezt a <RUN/STOP> <RESTORE> billen¬ 
tyűk megnyomásával sem tudjuk elállítani. A vírus harmadik 
akciója tehát, hogy ezt a vektort is saját magára irányítja. Ebben 
a rutinban pedig arra „vigyázunk", hogy a SAVÉ vektor mindig 
a megfelelő vírusrutinra mutasson. Ezenkívül a vírus bizonyos 
feltételek mellett bejelentkezik, mielőtt a régi melegindításra 
ugrana. A vírus tehát az alábbi részekből áll: 

— Keret két BASIC sorból. 

— Inicializálás (SYS-szel): 

1. BASIC startot eltolni. 

2. SAVÉ vektort átállítani. 

3. A melegindítás vektort átállítani. 

—SAVÉ rutin (minden egyes SAVÉ esetében): 

1. Ellenőrizni, hogy fertőzött-e már a program (ha igen, normál 
SAVÉ). 

2. Ellenőrizni, hogy az első utasítás a SYS-e (ha igen, normál 
SAVÉ). 

3. Ellenőrizni, hogy a program BASIC program-e (ha igen, nor¬ 
mál SAVÉ). 

4. A BASIC tárolót visszaállítani az eredeti értékekre. 

5. A másolatok számát jelző értéket eggyel megnövelni. 

6. Minden harmadik másolatnál kijelzés. 

7. A SAVÉ rutinra ugrani. 

— melegindítás rutinra (minden READY-nél): 

1. Az inicializálást megismételni. 

2. A vírust kijelezni, ha ez megengedett. 

3. A melegindításhoz ugrani. 


25 - Qz 






















HIRDETÉS 


A vírust egy rését (pl. SYS 64738) „megöli". A fertőzött prog¬ 
ramok esetében pedig elegendő a 0 és az 1-es sorokat törölni. 

Ha szeretnénk ellenőrizni, hogy a vírus aktív-e a számító¬ 
gépben, elég egy egyszerű POKE utasítást: POKE 787,9-et adni. 

Ettől a pillanattól kezdve (az aktív vírus esetében) minden 
második READY után kiadjuk az eddig elkészített vírusmásola¬ 
tok (azaz a fertőzött programok) számát. 


Nagyon vigyázzunk mindenféle manipulációval. Egy ilyen 
vírus fegyver, még akkor is, ha nem írnak bele lemezformatáló 
rutint! Egy vírussal mindig a legnagyobb felelősséggel kell 
bánni. Felelőtlen dolog (és jogellenes is) például a vírust úgy 
továbbadni, hogy a címzettet erről nem informáljuk. 





VIDEÓ CENTER 

ADÁS VÉTEL KÖLCSÖNZÉS SZERVIZ 
762a PÉCS, RÓKUS U. 3/Á TEL.:33-SIS 
CB 33 Baa/t3 USB 36 CS. 


nyitvatartás 

hétfőtől péntekig 7—13, 14—18 
szombat—vasárnap 8—11 

Ha úgy érzi, Commodore-ja már nem elég gyors, nem képes megbirkózni 

a feladattal, cserélje 
IBM KOMPATIBILIS 
WINCHESTERES 
XT-re 

FOX-T 1 

(256 kB RAM, 360 kB floppy, 10 MB HD, monitor és 
nyomtató csatolók) 

99 900 Ft 

(ÁFA-val, 1 év garanciával) 

FOX-T 2 

(256 kB RAM, 360 kB floppy, 10 MB HD, multi 1/0 kártya, 
soros—párhuzamos vonal) 

122 000 Ft 

COMMODORE 
konfigurációkat 
— kiépítéstől függően — 

15 000 Ft-tól 70 000 Ft-ig 

BESZÁMÍTUNK! 

Commodore egyesületi tagok e hirdetés bemutatása esetén 1 doboz 
DS, DP mágneslemezt kapnak ajándékba. 
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Új és olcsóbb 
Voice Master 

A C64-esen eleddig csak a Voice Master- 
rel lehetett igazán jó minőségben hang¬ 
digitalizálást megvalósítani. Most ezt a 
csodálatra méltó bővítőt kompakt formá¬ 
ban is megvásárolhatjuk. Az jelenleg csu¬ 
pán egy kézbeillő házból, mikrofonból és 
egy, a felvételi hangerőszabályozóból áll. 

A Voice Master lehetővé teszi beszéd 
felismerését és digitalizálását a C64-gyel. 
Azaz adott a beszédvezérlésű programok 
készítésének lehetősége is. A csomagban 
mellékelt Blackjack játék mindjárt példát 


is mutat erre. Mielőtt ezzel a programmal 
elkezdhetnénk játszani, a játékosnak mik 
rofonba kell mondani a szükséges szava¬ 
kat. A C64-es letárolja a hangot. Ezután 
a játékosnak csak a kívánt parancsot (pl. 
lapot adni, játék, stb.) kell kimondania. 
A C64-es összeveti a hangbevitelt a tárolt 
információkkal, és végrehajtja amit kérünk. 

A Voice Master már évek óta népszerű 
a C64-es tu lajdonosok között. Eledd ig azon¬ 
ban erősen visszatartó volt a készülék ára. 
Az új Voice Master Junior nemcsak méret¬ 
ben, hanem árban is zsugorodott. Most 
100 (korábban 250!) márkáért már birtokba 
vehetjük a kiegészítőt. A jellemzőkön sze¬ 
rencsére nem spóroltak a tervezők. 

Info.: Print-Technik, Nikolaistrasse 2, 
D—8000 München 40. 
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A NORSK DATA 


A skandináv számítástechnikai ipar 
egyik vezető cégének tartott Norsk Data 
váratlanul veszteséget jelentett a leg¬ 
utóbbi mérlegbeszámolóján. A hír önma¬ 
gában nem érdemelne sok figyelmet, a hát¬ 
terében meghúzódó körülmények miatt 
azonban több szempontból is tanulságos 
esetről van szó. A közepes méretű vállalat 
nehézségei elsősorban azt példázzák, 
hogy a nagy horderejű piaci változások 
hatására miként sorvadnak el rövid idő 
alatt a legdinamikusabbnak tartott ágazat¬ 
ban is a stabil pozíciók. 

A Norsk Data kedvezőtlen eredményei 
két fontosabb eredőre vezethetők vissza. 
Ezek közül az egyik lényegében gazdaság- 
földrajzi és piaci feltételekből fakad, a má¬ 
sik pedig a műszaki fejlesztési irányok 
helytelen megválasztásából. Az ipari szer¬ 
kezetváltási törekvések szempontjából 
mindkettő komoly tanulságokkal szolgál. 

A regionális, piaci jellegű feltételek 
elemzése kapcsán a szakemberek első¬ 
sorban arra mutatnak rá, hogy a Norsk 
Data egy olyan térségben tevékenykedett, 
ahol a jól képzett szakembergárda, a ma¬ 
gas színvonalú ipari kultúra és a fejlett 
infrastruktúra egyaránt rendelkezésre 
állt. A vállalat elsődlegesen egy olyan 


piacon volt jelen, amely folyamatosan 
magas követelményszintet támasztott, de 
jól fizetett a színvonalas termékekért és 
szolgáltatásokért, így az árbevétel bőséges 
fedezetet nyújtott az intenzív műszaki 
fejlesztésre. 

A kedvező gazdasági környezet és a vél¬ 
hetően igényes vállalatvezetés sem volt 
azonban elégséges a folyamatos expanzió 
fenntartásához. A skandináv térség, illetve 
az eladási lehetőségek szempontjából szó- 
bajöhető nyugat-európai országok csak 
viszonylag szűk regionális piacnak minő¬ 
sültek, ahonnan nem lehetett versenybe 
szállni a számítástechnika fejlődésének fő 
irányait meghatározó amerikai és japán 
nagyvállalatokkal. A piac nyitottságára 
építő állami szabályozás is a Norsk Data 
ellen dolgozott egy idő után. Amint ugya¬ 
nis kiderült, hogy az eredeti műszaki fej¬ 
lesztési irány zsákutcába jutott, a vállalat 
védtelen maradt a konkurrenciával szem 
ben, és eladásai rohamosan csökkenni 
kezdtek. 

A vállalat helyzetének rosszabbra for¬ 
dulása ezen a ponton kapcsolódik a mű¬ 
szaki fejlesztési irány helytelen megválasz¬ 
tásához. A Norsk Data úgynevezett mini¬ 
számítógépek gyártására szakosodott az 


évtized kezdete óta. (A szakterületet ke¬ 
vésbé ismerő olvasók számára ezt a kate¬ 
góriát elsősorban a kisebb teljesítményű 
asztali személyi számítógépektől szokták 
megkülönböztetni. A miniszámítógépek 
a folyamatos miniatürizálás és méret- 
csökkentés ellenére még ma is többnyire 
állványos kivitelben készülnek, és akkorák, 
mintegy kisebb irattároló szekrény.) 

Korábban a Norsk Data egy olyan fej¬ 
lesztési irányt szabott meg, amely éveken 
keresztül ragyogó üzletmenetet biztosított 
számára. A cég teljesen elszakította a 
konstrukciót azoktól az alapmodellektől, 
amelyeket a nagy amerikai gyárak követ¬ 
tek. Az önálló út követése elsősorban 
abban nyilvánult meg, hogy a cég gépeit 
teljesen egyedi alapszoftverrel (úgyneve¬ 
zett operációs rendszerrel) látták el. Érte¬ 
lemszerűen következett ebből az, hogy 
a felhasználói programok csak ezeken 
a gépeken működtek. 

Ez a fejlesztési stratégia jól működött 
a 80-as évek elejéig, amikor a piac még 
honorálta a drágább egyedi megoldáso¬ 
kat. A Norsk Data ebben az időben káprá¬ 
zatos nyereséget realizált az általa forgal¬ 
mazott programcsomagokban és egyedi 
szoftvertermékeken. Ez a stratégia azon¬ 
ban az évtized végének közeledtével el¬ 
kerülhetetlenül bukásra lett ítélve. A fordu¬ 
latot az váltotta ki, hogy az utóbbi években 
vdratlanul előretörtek az úgynevezett nyilt 
számítógépes architektúrák, amelyekben 
számos ponton nemzetközileg szabvá¬ 
nyosított megoldásokat alkalmaznak. 

Az általános, szabványosított kellékek 
sorában a legfontosabbnak azt a UNIX 
nevű operációs rendszert tartják, amelyet 
még a 70-es évek végén fejlesztett ki az 
AT & T Bell Laboratóriuma. Ez az alap- 
szoftver, amelyet egészen a mai napig 
folyamatosan tökéletesítenek, elsősorban 
arra nyújt jó lehetőséget, hogy az alkal¬ 
mazói programokból kialakuljon egy olyan, 
nemzetközi méretű, közös szúftverkincs, 
amelyből a felhasználók bőségesen merít¬ 
hetnek. Magától értetődik, hogy minden 
olyan cég, amely a saját partikuláris meg¬ 
oldásait ajánlja egy ilyen irányzattal szem¬ 
ben egy idő után elkerülhetetlenül zsák¬ 
utcába jut. 

A Norsk Data eredményeinek váratlan 
és rendkívül erőteljes romlása mögött is 
éppen az áll, hogy nem ismerte fel kellő 
időben a nagy nemzetközi szabványokhoz 
való igazodás szükségességét. Más tekin¬ 
tetben a vállalat sorsa kezd emlékeztetni 
arra a pályára, amelyet a Saab-Scania 
számítástechnikai részlege futott be. Ezt 
ugyanis a sorozatos balsikerek után át¬ 
vette az elektronika más területein sikeres 
Ericsson, majd egy további eredménytelen 
periódus, sőt tetemes veszteségek után 
továbbadta a finn Nokiának. 

E példák egybehangzóan azt sugallják, 
hogy a legmodernebb ágazatokban való 
megkapaszkodás kulcskérdése ma az, 
megtalálja-e egy vállalata helyéta mélyre¬ 
ható szabványosítások által meghatáro¬ 
zott nemzetközi piaci folyamatokban. 
(AP-DJ). 
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Tip’ék 


a C128-hoz 


VDC WINDOW 

Ez a rutin lehetővé teszi, hogy a 80 karakteres képernyőt 
bemásoljuk a VDC chip szabad tárolójába, majd azt onnan 
visszahozzuk. Itt még az attribut tárolót is figyelembe vesszük. 
Adjuk be a listát 64-es módban. A példaprogramban előbb egy 
képet készítünk, majd azt a tárolóba mentjük. Most az eredeti 
képet új utasításokkal meg lehet változtatni. Ezután nem kell 
a régit elkészíteni, a képet egy szemvillanás alatt visszaállít¬ 
hatjuk. Beugrási címek: 

80 karakteres kép SAVÉ: $1303 
80 karakteres kép LOAD: $1300 


ci «:<_ 


í.-.i X Ti d O 1.-01 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 


rém ****)M************************** 
rém # # 
rém Üt vdc-window cl28 165 # 
rém t # 
rém ü:#***#**###*******##*****#***#*# 


print chr$(147)"data beolvasás es ellenőrzés 
fór b=0 to 7:read a$ 

1 =asc(mid$(a$,2,1)) 
h=asc(midi (a$,1,1)) 

1=1-48:if 1>9 then 1=1-7 
h=h-48:if h>9 then h=h-7 
print : p=p+l 

if h>15 or 1>15 then 17 
a=h#16+1:poke j+b,a:t=t+a:next 
print: prinfdata hiba ... sor 
t=0:j=j+8:if j<ve then 9 
print"EHI kesz":end 
data 4c,55,13,a2,18,8e,00,d6,0722 
2c,00,d6,10,fb,ad,01,d6,0913 
09,80,48,20,79,13,30,10,0557 
a9,00,B5,f a,85,f b,85,f d,1322 
a9,10,85,fc,a5,fc,a2,12,1167 
20,79,13,a9,00,e8,20,79,0726 
13,a5,fa,a2,20,20,79,13,0800 
a9,00,e8,20,79,13,a2,le,0765 


b:read a:if a=t then 18 
"peek(64)*256+peek(63):end 


data 

data 

data 

data 

data 

data 

data 

data 

data 

data 

data 

data 

data 

data 

data 

data 

data 


a9,00,20,79,13,e6,fa,e6, 1051 
fc,88,dO,dB,68,29,7f,a2,1246 
18,20,79,13,60,a2,18,8e,0620 
00,d 6,2c,00,d 6,10,fb,ad,0912 
01,d6,09,80,48,20,79,13,0596 
aO, 10,a9,00,85,f c,85,f d,1116 
85,fb,a9,10,85,fa,4c,24,1064 
13,8e,00,d6,2c,00,d6,10,0649 
f b,8d,01,d 6,60,00,00,00,0703 
OO , 00,00,00,00,00,00,00,0000 


o 

o 

o 

:j=04864:ve=05007: p = j 

o 


o 

o 

o 

o 

o 

o 

o 


ready. 
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TIPPEK - TRÜKKÖK 


:4* 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


vdc — uüí ndow — d e m o 

1 bank 15 

2 + ast 

3 graphic5,l 

4 pr i irtchr $ (19) chr $ (19) chr$ (27) "rn" » 

5 : 

6 i ori=lto2000 

7 : i-f r nd (0) > . Sthenpr- i ntchrí ( 15) ; :s1 sepri ntchr $(143) ; 
3 : c □ 1 o r 5, i n t ( r n d (1 ) * 15) + 1 

9 : printchríí205 + rnd(0) + .5)» 

10 next 

11 : 

12 print"chr$(19)chr $(19) 

13 : 

14 sys dec("1303"):rém kép tarolasa 

15 : 

16 printchr$(27)"1"chr$(5)chr$(143); 

17 : 

18 : 

19 cbari,30,12,"a*********************" 

20 char1,30,13,”* *" 

21 char1,30,14,"* billentyű *” 

22 charl,30,15,”* *" 

23 char1,30,16,"# a regi kephez *" 

24 char1,30,17,"* *" 

25 char1,30,18,"* *" 

26 char 1,30, 19, ”********X-**3f***X-******" 

27 getkeya$ 

28 : 

29 sys dec<"1300"):rém a kép újra eloallitasa 

30 : 

31 sleepl 

32 gotol9 


ready. 



Címkeíró C(64)-re 

Bizonyára sokaknak okozott gondot a PR0FI-ASS 64 haszná¬ 
lata közben az, hogy nem tudja megnézni a szimbólum-tábláza¬ 
tot. Erre ad megoldást a következő gépi kódú rutin, melynek 
kezdőcíme $C900 (51456). (Természetesen máshova is lehet 
fordítani). 

A rutin használata: 

— töltsünk a gépbe egy „PR0FI-ASS 64"-et (.8,1) 

— SYS 64738 (teljes rését), 

— írjuk be (ha megvan, töltsük be) a címkekiíró programot, 

RUN (a program lefordul az 51456-os címre), 

— forrásprogram betöltése és fordítása, 

— SYS 51456 (a rutin hívása). 

Ekkor kiíródnak a címkék és értékeik, de fordított sorrendben. 
Ez azért van, mert a PROFI-ASS a címkéket BASIC stringként 
kezeli, ezért az egyértelmű kiíratás csak ebben a sorrendben 
lehetséges. 

Vigyázni kell arra, hogy az 51456-os címre ne fordítsunk 
semmit, mert „elgázolná” ezt a kis rutint. 


1 RÉM 
£ RÉM 

3 RÉM 

4 RÉM 


****************************** 

* C— OJSAŰ SORSZÁM 166 * 

* CIMKEKIIRO C64 * 

* PROGRAM '■ MOLNÁR LÁSZLÓ 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



1 00 

SVS36364 




1 1 0 

.QPT 00 

P 




120 

*=40900 



..ML 1050 

o 

130 


LOA 

#00 


140 


STA 

4F9 


150 


LDX 

433 

r 4FA— 4FB CÍMEK 


160 


LOA 

434 

; kezdőcíme 


170 


STX 

4FA 



180 


STA 

4FB 


o 

190 

•• LP0 

CMP 

#498 

; 49000 PRINT 

200 


BEQ 

VÉG 


210 


LOS' 

#01 



220 

: LR1 

LOA 

<4FA> 

V 


230 


STA 

4FC, V 



240 


DEV 



o 

2l»SÖ 


BPL 

LOA 

LP1 

4F9 



270 

1 

AND 

#01 



280 


BEA 

LP2 



290 


L0V 

#20 

J K11 RAS Fi 20. 

o 

300 


„B' 

r'T 12 


310 

■ LP2 

LOV 

#00 

; kiírás a 0 . 

320 


STV 

211 

, pozíciótol 


330 


LOV 

#02 



340 

J 

LOA 

C4FA> 

V 


350 


TAX 



o 

360 


AND 

#07 


370 


STA 

4FE 


380 


TXA 


; CÍMKE HOSSZANAK 


J90 


CLC 


; KISZÁMÍTÁSA 


400 


ADC 

#08 



o 

o 

o 

o 

o 

o 

o 
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Síim 


i \ ™ i 


TIPPEK-TRÜKKÖK 


o 

410 


AMD 

#*F8 


O 


428 


LSR. 





430 


LSR. 




o 

440 

45© 


LSR 

RDC 

#*40 


O 


460 


JSR 

Í-FFD2 




470 


LOR 

*FE 



o 

480 


BÉG 

LR4 


o 

490 


TRX 





500 

LP3 

INV 





510 


LOR 

<*FR>, 

V 


0 

520 


JSR 

*FFD2 


o 

525 


OEX 




530 


BHE 

LP3 



0 

540 

LP4 

L..OR 

211 


o 

550 


CLC 



560 


HOC 

#08 




570 


SEC 




o 

580 


SBC 

*F r E 


o 

590 


STR 

211 



600 


LOR 

#" = " 

; = KIIRRSR 



610 


JSR 

*FF02 



o 

620 


LOR 

*FD 

; ÉRTÉK KIIRRSR 

o 

630 


JSR 

SZK.0 



640 


LOR 

*F C 




650 


JSR 

SZK0 



0 

660 


INC 

*F9 


0 

670 


LOR 

*F9 



680 


LSR 





690 


BCS 

LP5 



o 

700 


LOR 

#13 

; RETURN 

o 

710 


JSR 

*FFD2 



720 

LF'5 

INC 

*FE 




730 


INC 

*FE 



o 

740 


LOR 

*Ffl 

J KŐVETKEZŐ CÍMKE 

0 

750 


SEC 


; CIMENEK 


760 


RDC 

*FE 

; KISZRMOLRSR 



770 


STR 

*FR 



o 

780 


BCC 

LP6 


o 


790 


INC 

*FB 




800 

LP6 

JSR 

*F6E0 

; RUN—STOP 


o 

810 


BÉG 

VÉG 



820 


LDR 

*FB 


o 


830 


JMP 

LP0 




840 

VÉG 

RTS 




o 

850 

SZK0 

TRX 


; 1 BYTE-OS SZRM 

o 

860 


LSR 


; KIIRRSR 


870 


LSR 





880 


LSR 




0 

890 


LSR 



Q 

900 


JSR 

SZK1 



910 


TRX 





920 

SZKl 

RNO 

#*0F 



o 

930 


CMP 

#*0R 


o 

940 


BCC 

SZK2 



950 


RDC 

#06 




960 

SZK2 

RDC 

#*30 



o 

970 


JMP 

*FF02 


o 

980 

EHO 






o 

L—— 


RERDY 



Piros-fehér-zöld háttér 

A program a videovezérlő megszakítási lehetőségeit felhasz¬ 
nálva a képernyőre varázsolja a magyar nemzeti színeket úgy, 
hogy azok a későbbi munkát nem zavarják, és csak a STOP- 
RESTORE megnyomásával vagy a rasztermegszakítás kikapcso¬ 
lásával lehet őket eltűntetni. 

A 3. lista begépelése és a PROFI-ASS 64-gyel való lefordítása 
után a SYS 49152 utasítással lehet bekapcsolni a piros-fehér- 
zöld képernyőt. 


O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 


16 ?- 


MEGSZBKITftS-VEKTOR 
VI.OEOVEZERLO KEZOOC t ME 
MEGSZRKITBS KEZOOCIME 

cím kezdőcíme 


1 RÉM **************#***#***#***#**#*!«*# 

3 RÉM * PIROS-FEHER-ZOLU KÉPERNYŐ C64 * 

4 RÉM * PRŰGRRM SOMOS PETER, 1988. * 

5 RÉM *#*##**##*###*#***#*!<<****■«******** 

10 SYS 1 36864 > 

15 ; 

38 , 

45 , 

49 .OPT P,00 

50 4= #C00O 
80 IR.O.VECT - *0314 
70 VIC = *0800 
80 IR.QRET = *ER31 
90 CIGI = *OC00 
100 RETIRR = *FEBC 
110 RED = 20 
128 WRITE = 106 
138 GREEN =197 
200 ; 

210 SEI ; IHICIRLIZRLRS 

220 LDB #021= STB IR.O.VECT 
230 LDH #>Q1=STR IR.QVECT+1 
240 LOB #RED=STR VIC+18 
250 LOB Vic+17'BMD tt*7F■STB VIC+17 
260 LOB #5í10000001••STB VIC+26 
270 CLI 
280 RTS 

230 ; +—»•--+—+-*+—+-+ 

300 Q1 LOR VIC+25. ; UJ IRQ-RUTIN 

301 STR VIC+25>BMl Q2 
310 LDR CIR1+13 
320 CLI 

330 JMP IR.GlP.ET 
335 ; +-+-+-+-+-+-+ 

340 Q2 LOR VIC+18-CMP *GREEM‘BCS Q.4 
350 CMP #WHITE : BCS Q3 
355 ; +-+-+-+-■i► -+-+ 

36© LOR #2*STR VIC+32=STR VIC+33 
370 LDR #WMITE* STR VIC+18 
380 JMP RETIRR 
385 ; +—►_.+—+■—+—-f—+ 

390 Q3 LDR 41=STR VIC+32 5 STR VIC+33 
400 LDR 4GREEN-STR VIC+18 
410 JMP RETIRR 
415 ; +-+-+-+-+-+-♦ 

420 Q4 LDR #5 STR VIC+32-STR VIC+33 
430 LDR #R.ED : STR VIC+18 
440 JMP RETIRR / 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


RERDY. 



Új MIDI interfész 

A Rössmöller Handshake GmbH most 
egy C64-es MIDI interfészt is kínál. Ez 
egy bemenettel (MIDI-in), egy átvezetett 
(MIDI-Thru), és négy szabályos (MIDI-Out) 
kimenettel rendelkezik. Ezzel tehát maxi¬ 
mum hat szintetizátor párhuzamos csatla¬ 
koztatása lehetséges a C64-hez. A gyártó 
adatai szerint az interfész kompatibilis 
a szabvány szoftverekhez, pl. a C-Lab, 
a Steinberg és a Jellinghaus termékekhez. 
Az ára: 99 márka. 

Info.: Rosmöller Handshake GmbH, 
Neuer Markt 21, D—5309 Meckenheim. 
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HIRDETÉS 




ÁPISZ számítástechnikai szaküzlet 
Vili. Szigony u. 15. 143-446 




60 Mbyte-os mágneslemez 24 900 Ft 


3M digitál kazetta 690 Ft 





8 collos floppytároló PVC mappa 280 Ft 


Mágnesszalagok 600—3600 láb hosszú 

700 Ft-tól 3700 Ft-ig 


Brother AX—15 elektromos táskaírógép 
Erika 3004 elektromos táskaírógép 
Handy type sornyomtató 
Sharp 2607S asztali számológép 
ELWRO asztali számológép 


34 500 Ft 
22 700 Ft 
15 000 Ft 
11 800 Ft 
2 900 Ft 


Leporellók: — egy és több példányos 

— kis és nagy nyomtatókhoz 

Etikett leporellók 

120 x 48 mm-es egypályás, 1 doboz 
3000 címke - 2000 Ft 


5X collos floppy lemezek 
IBM XT és AT gépekhez 

150 Ft-tól 590 Ft-ig 
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EGYESÜLET 


& 


PÖTYÖGŐ SZOLGALAT 


Alulírott megrendelem a következő programokat 
a Pötyögő Szolgálattól: 


sorszám géptípus megjelenés 


050 

C16 

87/2 

051 

C64 

87/3 

052 

C16 

87/3 

053 

C16 

87/3 

054 

VC20 

87/3 

055 

PLUS/4 

87/4 

056 

C64 

87/4 

057 

VC20 

87/4 

058 

C64 

87/5 

059 

C64 

87/5 

060 

C64 

87/5 

061 

PLUS/4 

87/5 

062 

PLUS/4 

87/5 

063 

C64 

87/6 

064 

C64 

87/6 

065 

C16 

87/6 

066 

C16 

87/6 

067 

C16 

87/6 

068 

C16 

87/7 

069 

PLUS/4 

87/7 

070 

C64 

87/8-9 

071 

C64 

87/8-9 

072 

PLUS/4 

87/8-9 

073 

PLUS/4 

87/8-9 

074 

PLUS/4 

87/8-9 

075 

VC20 

87/8-9 

076 

C64 

87/8-9 

077 

C64 

87/8-9 

078 

C16 

87/10 

079 

C64 

87/10 

080 

C64-H+ 

87/10 

081 

C128 

87/11 

082 

C128 

87/11 

083 

C64 

87/11 

084 

C16 

87/11 

085 

C64 

87/12 

086 

C64 

87/12 

087 

C64 

87/11-12 

088 

C16 

87/12 

089 

C16 

87/12 

090 

C64 

88/1 

091 

C16 

88/1 

092 

C64 

88/1 

093 

C16 

88/1 

094 

VC20 

88/2-3 

095 

C64 

88/2-3 

096 

C64 

88/2-3 

097 

C16 

88/2-3 

098 

C64 

88/4 

099 

C64 

88/4 

100 

C64 

88/5 

101 

PLUS/4 

88/5 

102 

PLUS/4 

88/6 

103 

C16 

88/7-8 

104 

C64 

88/7-8 

105 

C128 

88/7-8 

106 

Cl 28 

88/7-8 

107 

C64 

88/9 

108 

C64 

88/9 

109 

C64 

88/9 

110 

C64 

88/9 

111 

PLUS/4 

88/10 

112 

C64 

88/10 

113 

C16 

88/10 

114 

C64 

88/11 

115 

C64 

88/11 

116 

C64 

88/11 

117 

C64 

88/11 

118 

C64 

88/11 

119 

C64 

88/11 

120 

C64 

88/11 

121 

C64 

88/11 

122 

C64 

88/11 

123 

C64 

88/11 

124 

C64 

88/11 

125 

C64 

88/12 

126 

C64 

88/12 

127 

C64 

89/1 

128 

C16 

89/1 

129 

C64 

88/12 

130 

C64 

89/2 

131 

C64 

89/2 

132 

C64 

89/1 

133 

C64 

89/1 

134 

PLUS/4 

89/1 

135 

C64 

89/1 

136 

PLUS/4 

89/1 

137 

PLUS/4 

89/2 

138 

PLUS/4 

89/2 

139 

PLUS/4 

89/3 

140 

PLUS/4 

89/3 

141 

PLUS/4 

89/3 

142 

Cl 28 

89/3 

143 

AMIGA 

89/4 

144 

C64 

89/4 

145 

C64 

89/4 

146 

C64 

89/4 

147 

C16 

89/4 

148 

C16 

89/4 

149 

C16 

89/4 

150 

PLUS/4 

89/4 

151 

C128 

89/4 

152 

PLUS/4 

89/5 

153 

C64 

89/5 

154 

C64 

89/5 

155 

C128 

89/5 

156 

C128 

89/5 

157 

C64 

89/5 

158 

C64 

89/5 


e1 nevezés 

Telezsák 

Stringkeresö 

Jövedelemadó 

Hangos billentyűk 

Rajzoló 

Karaktervezö 

Dupla BASIC 

Ferde torony 

GEOMASTER /lefordított/ 

GEOMASTER /BASIC változat/ 

Golyózó 

Magyar BASIC 

Kukkoló - BASIC monitor 

Sprite editor + 

Magnó directory 
Nagyfelbontású hardcopy 
Sztereó vízió 
Kukkoló - Szuper peek 
Mentőöv 
Ablakozó 

Commo-do-re /BASIC változat/ 

Commo-do-re /lefordított/ 

Kukkoló - Bővített monitor 

Ékezetes betűk 

PLÚTÓ - Rajzoló program 

Majomfogó 

Többtényezős döntések 

Raszter 

Append 

Nagyító 

Makrók 

Struktúra 

Emlékeztető 

Monitorka 

Cimröl-cimre 

Gyors sorol 1 

1541 

1541 + Honi torka 

Lokális változók 

Tekergő 

Fekete - fehér 

Datásitó 

Programkönyvtár 

Katasztrófa 

TG BASIC 

Topy Typer 

Sprite editor super 

Katasztrófagép 

Modulgráfika 

Segítség! 

Gurítsd a golyót! 

Egyenesrajzoló 

Szótár 

Gitáriskola 

Gyors BASIC 

Super hardcopy 

Grafikus nyomtatás 

Fást validate 

Adóelőleg 

Data bevivö 

DEF FN/X/ 

Magyarosító 
Diszkkezelö 
DISASSEMBLER 
Négy képernyő 
Ablakok 

ASCII képernyő 
Pi1lanatfelvétel 
B1inky 

Színes villogtató 
80 karakteres üzem 
Vi1logtató 
Joystick lekérdező 
Gyors sprite mozgatás 
DEF FN - másképpen 
Szuper input 
Ugráló színsávok 
PRINT AT 

Funkcióbi1lentyük 

Minihelp 

Házi pók 

Csillagos ég 

Szalagról lemezre 

Kmífel 

Zombi 

Kétoldalas listázó 
Objektív osztályozás 
Tömöritő 
Kifejtő 

3 - plusz - 1 magyarul 

Napló-kezelő 

Analóg óra 

Javított renumber 

Magyar karakterek 

Keret csíkozás 

Mozgó felirat 

26. sor 

Optinput 

Turbo-block 

Finom scrol1 

Animáció 

Pót-funkciók 

Betűradar 

BHP vírus kereső 

Képmutató 

VDC mint RAM floppy 
Joy SPRITE 
Javított list 
Zenei segédlet 


o 
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40.- 
30,- 
30.- 
40.- 
30.- 
40.- 
40.- 
60.- 
40.- 
40.- 
20 .- 
30.- 
40.- 
30.- 
60.- 
40. f 
60.- 
30.- 
60.- 
30.- 
60.- 
30.- 
60,- 
60.- 
30.- 
40.- 
40.- 
60.- 
50.- 
30.- 
30,- 
50.- 
40.- 
30.- 
20 .- 
20 .- 
20 .- 
20 .- 
20 .- 
20 .- 
20 .- 
20 .- 
20 .- 
20 .- 
20 .- 
40.- 
30.- 
20 .- 
20 .- 
20 .- 
40.- 
30.- 
40.- 
50.- 
60.- 
60.- 
50.- 
20 .- 
20 ,- 
40.- 
30.- 
20 .- 
40.- 

20 .- 

20 .- 

40.- 

30,- 

30.- 

30.- 

60.- 

20 .- 

40.- 

40.- 

60,- 

30.- 

30,- 

30.- 

60.- 


ára 

PROGRAM SORSZÁMA 

ÁRA 

20.- 

40.- 

1. 




LLi ■" Ft 

20.- 

20.- 

2. 




LU Ft 

20.- 

40.- 

3. 



LU^ 

50.- 

50.- 

4. 




LU Ft 

50. - 
30.- 
50.- 

5. 




LU- Ft 

60.- 

50,- 

20.- 

6. 




LU- Ft 

40,- 

20,- 

50.- 

7. 




’UJ - Ft 

60,- 

60.- 

8. 



LU- Ft 

30.- 

60.- 

40.- 

9. 




LU- Ft 

40.- 

30.- 

40.- 

összesen: 



db | | || " Ft 


A programokat saját kazettámra kérem. |_| 

A programokat saját lemezemre kérem. 

(a megfelelő kockát x-elje be!) 

A programokat a Szolgálat által biztosított Parrot SS, 
SD lemezre kérem (190 r Ft/db) [ | j 

15' kazettára kérem. (30,- Ft/db) 

POSTA költség (25 - Ft) [ | | Ft 

összesen: | | | | Ft 

A fenti összeget befizettem az Országos Commodore 
Egyesület számlájára: 

OPT XIII., Visegrádi u. 7/b. 

MNB 217-98292 ' 

OTP 565-3610 

NÉV:| I I I I I I I I I II I I I I I II I 


Cím: . 

EGYESÜLETI TAGSÁGI SZÁM: 

DÁTUM: . 


aláírás 


Kérem, hogy a Commodore Újság legköze¬ 
lebbi számában jelenjen meg a következő 
szövegű apróhirdetés: 

(minden oszlopba egy betűt írjon!) 


LL 


Név: . 

Egyesületi tagsági szám: . 

Feladandó az újság címére: 

Commodore Újság Kárpát u. 7/a. I. em. 11. 

1133 















































































APRÓCSKÁK 




EGYESÜLETI TAGOK 


FÓRUMA 


C 64 


C 64 programokat cserélek 
lemezen. Keresem a DEFEN- 
DER OF THE CROWN című 
játékot. Listát kérek és küldök. 
Matalik Krisztián, Gyöngyös¬ 
pata, Szűcsi út 11.3035 


Keresem a MERCENARY 
programot kazettán és más 
programokat is cserélek. 
Székely Krisztián, Győr, ifjú¬ 
ság kört. 41.1/4. 


Régi, nem szögletes dobozos, 
C 64-est, javításra szorulót 
vagy javíthatatlant keresek 
megvételre, ajánlatokat levél¬ 
ben, ár és hiba megjelöléssel 
kérem. 

Kerekes Géza, Törökbálint, 
Tulipán u. 6. 2045 


Színvonalas programokat 
cserélek kazettán. Listát min¬ 
den esetben kérek. 

Máté Miklós, Budapest, Cso¬ 
konai u. 2.1193 


Keresem a GAME MAKER 
játékszerkesztő programot. 
Kb. 250 programom van. Lis¬ 
tát kérek és küldök. 

Fábián László, Dombóvár, VI. 
u. 28.7200 


■wJ 1 


PLUS/4 programcsere! Új 
sakkmásoló programot kere¬ 
sek. Jutányos áron eladó 
programok! 

Karmazin Zoltán, Szolnok, FT. 
137, 5001 


Im ■ 


Keresem a MAUS 4 című 
programot, megvételre vagy 
cserére. Lehetőleg leírással. 
Balló Attila, Budapest, Erzsé¬ 
bet Királyné útja 1/B. 1146 

Programcsere! Csak színvo¬ 
nalas, 1988/89-es programok 
érdekelnek. Cserealapom: 
1000 darab program. Kere¬ 
sem GIGA PAINT és GEO 
PUBLISH című programokat. 


Programcsere kazettán! Te¬ 
lefon: (66) 41-246, 17 órától 
vagy hétvégén. Levélben. 
Brád György, Tarhos, Béűési 
út 7/A. 5641 


PLUS/4 programokat cseré¬ 
lek kazettán vagy lemezen. 
700 programom van. BASIC 
programok nem érdekelnek! 
Listát kérek! 

Hollik Zsolt, Debrecen, Vu- 
kovics Sebő u. 1.4030 




Vegyes 


mmmmmmmmmmammm 


J 


Rését kapcsolót vennék ol¬ 
csón! 

Játékprogramokat cserélek, 
inkább kazettán, lehet lemez 
is. 

Juhász Attila, Szombathely, 
Vak Bottyán utca 11. 


Programcsere! Cserealap 
2000 program. 5 X" lemeze¬ 
kért megegyezés szeri nt adok 
programokat. 

Szabó Csaba, Ócsa, Üllői út 
28.2364 



C 16, Plus/4 


C 16-hoz 60K-S memóriabőví¬ 
tőt vagy kapcsolási rajzát ke¬ 
resem, cserére vagy megvé¬ 
telre. 

Kaczmarek Edvárd. Telefon: 
335-738 


PLUS/4 programokat cserél¬ 
nék kazettán. Keresem a 
SCOOPY DOO programot. 
Pelyhe Szilárd, Budapest, Ör¬ 
dögárok utca 43.1029 

C 16, PLUS/4 programokat 
cserélek kazettán. Kb. 800 
programom van. Listát kérekl 
Sipos József, Kaposvár, Mező 
I. út 14. 7400 

C 16, PLUS/4 programok cse¬ 
réje, lemezen és kazettán! 
Listát kérek és küldök. 

Raffai András, Budapest, Ady 
E. út 13-15. XI/114.1211 


AMIGA programok és infor¬ 
mációk cseréje. 

Bárdos Ferenc, Kalocsa, Mis¬ 
kei út 20. 6300 


Commodore PC-vel kapcso¬ 
latos minden információ ér¬ 
dekel. 

Kovács Mihályné, Budapest, 
Néphadsereg u. 14. 1055 


Vadonatúj ENTERPRISE 128 
nagyon olcsón eladó. 

Balázs Jánosné. Telefon: 
573-135 

VC 20-as géppel rendelkezők 
ismeretségét keresem. 

Pázsy István, Budapest, Dem¬ 
binszky utca 46. IV/61. 


MBiWIWW 


i i-TiinMir 




. ■ X, 


C 16, PLUS/4 programokat 
cserélek kazettán. Lehetőleg 
új programok érdekelnek. 
Boros Zoltán, Pánd, Arany J. 
utca 91/B. 


1541-es vagy 1541-ll-es diszk 
drive-ot veszek. Lehet hasz¬ 
nált is. 

Lajtos Máté, 4032 Debrecen, 
Martonfalvi u. 14. fsz. 2. 


Eladó kétkazettás AKAI HX— 
A301 magnó deck. 

Karmazin Zoltán, Szolnok Pf. 
137.5001 


ATARI 1040 alapgépet, 
floppyt keresek! 

Báli József. Telefon: 420-212. 
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EGYESÜLET 


& 

kedvezmények 


A kedvezmény 
a megjelenéstől 
számított 
egy hónapig 
érvényes. 



KEDVEZMÉNYEK a PC-Szalontól a Szu¬ 
perpáholy tagok részére! 

IMPOSSIBLE MISSION 

11.15% 781-ÁFÁVAL 

játékprogram 

AMBASSADOR PC szövegszerkesztő 
10% 5950 -ÁFÁVAL 


A NOVOTRADE RT. 2C 
Áruházában az Egyesület 
PLUSZ- és SZUPER PÁHOLYÁNAK 
tagjai kedvezménnyel 
vásárolhatják meg a következő programokat: 


DEÁKPÁHOLY:—20% 

Basic, Logo, Pascal 

149,- Ft 

119,20 Ft 

Fizikomp 

129,— Ft 

103,20 Ft 

Első könyvem CHIP 

99,— Ft 

79,20 Ft 

Sakkprogramozás mindenkinek 

239,- Ft 

191,20 Ft 

Robotok és a C—64 

249,— Ft 

199,20 Ft 

PLUSZPÁHOLY:—10% 



Mesterséges intelligencia 

349,- Ft 

279,20 Ft 

Prolóóban programozni könnyű 

219,- Ft 

175,20 Ft 

MPS 1000 Felhasználói kézikönyv 

180— Ft 

144,— Ft 

SZUPERPÁHOLY: —20% 

PRINTER BASIC 

8459,— Ft 

6767,20 Ft 

Mesterséges megvilágítás 

4750,— Ft 

3800,— Ft 




jumusi 
60 forintos 
vásárlási utalvány 

Beváltható készpénzes 
vásárlás esetén a 2C 
áruházban XIII., Balzac u. 35. 
és a Művelt Nép 

vidéki boltjaiban működő 2C sarkokban 

Érvényes: 1989. július 31-ig 


60 forintos 
vásárlási utalvány 

Beváltható készpénzes 
vásárlás esetén az 
ÁPISZ szaküzleteiben 
XI., Budafoki út 7. 

Vili., Szigony u. 15. 

Érvényes: 1989. szeptember30-ig 


o 


A Newline számítástechnikai vállalkozás 10% kedvezményt ad az egyesület 
tagjainak: 

C 16 beépíthető 64 KByte memóriabővítő 


1990,- Ft 

16-64-es átkapcsoló 150,-Ft 

beépítés munkadíja 490,- Ft 

ROMTURBO 16 770 - Ft 

együttes megrendelés esetén 3400,- Ft 

árengedménnyel: 3060,- Ft 


Jogosultak: a Plusz- és a Szuperpáholy tagjai 
Igazolás: ennek a tikettnek postai elküldésével 
Cím: Newline, 1014 Budapest, Tárnok u. 26. 1/5. 


(ttAnomum wtw>k) 


A Fotoelektronik-Novotrade-Alfa KFT az alább felsorolt szervizeiben mindenféle szer¬ 
vizszolgáltatás munkadíjából és az 1989. évben megkötött átalánydíjas szerződés 
összegéből 10% kedvezményt ad az egyesületi tagoknak. 

Határidő: nincs, illetve átalánydíjas szerződésnél 1989. 12. 01. 


A kedvezményt nyújtó szervizeink: 

1053 Budapest, Magyar u. 12—14. 

1083 Budapest, Szigony u. 9, 

1191 Budapest, Gábor Á. sétány 3. 

3100 Salgótarján, Arany J. u. 3. 

3525 Miskolc, Fazekas u. 1—3. 

4034 Debrecen, Holló L, u. 14. 

5600 Békéscsaba, Bartók B. u. 37. 

6726 Szeged, Csongrádi sugárút 76. 
7400 Kaposvár, Füredi u. 24. 

7624 Pécs, Jurisics M. u. 17. 

8000 Székesfehérvár, Széchenyi u. 15/a. 


Telefon: 173-551 
Telefon: 343-153 
Telefon: 274-763 
Telefon: 32-14-007 
Telefon: 46-17-011 
Telefon: 52-32-863 
Telefon: 66-27-195 
Telefon: 62-13-377 
Telefon: 82-16-307 
Telefon: 72-11-812 
Telefon: 22-12-711 



9024 Győr, Bem J. tér 1. Telefon: 96-12-802 

9700 Szombathely, Szalonok u. 31. Telefon: 94-13-419 


Igazolás: a javítandó berendezés leadásakor egyesületi igazolvánnyal. 
A kedvezmény többször is igénybe vehető. 
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Felhasználói rendszerek 
IBM XT és AT 
számítógépekre 

Vezetésszolgáltatási 
Információs Rendszer 


— Értékesítési, Készáru-nyilvántartási és 
Számlázási Rendszer 

— Termelésirányítási Rendszer 

— Anyag- és Félkésztermék-nyilvántartási 
Rendszer 

— Pénzügyi és Főkönyvi Könyvelési Rendszer 

— Teljesítményelszámolási Rendszer 

— Bérszámfejtési Rendszer 

— Munkaügyi és Személyzeti Nyilvántartó 
Rendszer 

Szolgáltatásaink 

— A rendszert a Megrendelő igényeihez adaptál¬ 
juk — egy szakemberünk egy havi munkájával 
térítésmentesen, azon felül megegyezés szerint. 

— Betanítjuk a rendszert ingyenesen. 

— A rendszer beüzemelését szolgáló próbaüzem 
időtartama alatt — kívánságra — programozói, 
ill. operátori ügyeletet biztosítunk. 

— A rendszer átadását követő 5 éven keresztül 
térítésmentesen elvégezzük a szabályozórend¬ 
szer változásainak következtében felmerülő mó¬ 
dosításokat évi egy ember/hónap munkaigényig. 

— Számítógéppel nem rendelkező ügyfeleink ré¬ 
szére programrendszereket az üzemeltetésük¬ 
höz szükséges számítógép-konfigurációval 


sw- 
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együtt biztosítjuk: 



— az eszközöket eladjuk, 



— az eszközöket bérbe adjuk, 


— hálózatot telepítünk. 



A legtöbb helyen saját gépeinket kihelyezzük a 



felhasználóhoz, és azokon ún. gépi adatfeldolgozó 


. 

kapacitásszolgáltatást nyújtunk. 

'Ab 
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